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Various  analytic  and  numerical  methods  are  described  for  the 
phenomena  which  take  place  when  a  high-energy-density  source  interacts 
with  matter.  The  interaction  usually  begins  with  the  transient  heating  of 
a  solid  surface  for  which  analytical  methods  of  study  have  been  developed 
(Section  I).  The  second  phase  of  the  interaction  process  is  vaporization. 
Recent  developments  in  numerical  techniques  for  simulating  vaporization 
are  discussed  in  the  context  of  the  two-dimensional  interaction  code 
HECTIC  (Section  II).  The  third  phase  normally  involves  the  nonsteady 
flow  of  ionized  vapor,  for  which  equations  of  state  are  required.  A  gen¬ 
eral  numerical  technique  (EIONX)  for  evaluating  internal  energy  and  pres¬ 
sure  for  a  given  temperature  and  density  has  been  developed  and  incorpo¬ 
rated  in  the  SPUTTER  program  (Section  III).  For  computer  programs, 
e.g. ,  HECTIC,  which  use  internal  energy  and  density  as  the  independent 
variables,  numerical  methods  were  developed  to  invert  the  equations  of 
state  generated  by  EIONX  (Section  IV).  For  relatively  low  energy-density 
sources,  the  vapor  may  be  in  a  molecular  phase  for  a  significant  part  of 
the  interaction  process,  thus  requiring  the  development  of  special  tech¬ 
niques  for  evaluating  the  molecular  dissociation  energy  as  a  function  of 
temperature  and  density.  The  calculations  for  one  particular  material- - 
carbon--are  discussed  in  detail  (Section  V). 

(Distribution  Limitation  Statement  No.  2) 
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SECTION  I 

HEATING  OF  A  SLAB  BY  A  TIME -DEPENDENT  SOURCE 

1.  1.  INTRODUCTION 

Analytic  solutions  of  the  heat  conduction  equation  may  often  be  used  to 
advantage  in  the  studyof  interaction  phenomena  (Ref.  1).  Although  the  analytic 
treatment  must  in  general  neglect  both  temperature  and  position  dependence 
of  the  thermal  parameters  of  the  material  medium,  it  is  at  least  not  subject 
to  the  limitations  of  accuracy  and  stability  which  are  encountered  in  the  use 
of  difference  equations.  The  analytic  method  therefore  serves  both  as  a 
useful  guide  to  the  improveme  it  of  difference -equation  methods  and  as  a 
convenient  check  on  the  validity  of  particular  computational  results  obtained 
by  use  of  difference  techniques. 

1.2.  SPECIFICATION  OF  THE  HEAT  CONDUCTION  PROBLEM 

In  a  typical  interaction  problem,  a  semi-infinite  region  x  >  0  is 
occupied  by  a  solid  material  which  is  heated  by  radiation  incident  upon  its 
surface.  The  intensity  of  this  source  radiation  will  be  denoted  by  E(t) 
ergs/cm^/sec,  a  defined  function  of  time  t  >0,  The  present  discussion  is 
concerned  with  the  general  problem  of  a  source  intensity  which  varies  con¬ 
tinuously  with  time.  This  entire  class  of  problem  is  definitively  treated  by 
Car  slaw  and  Jaeger  (Ref.  2). 

The  absolute  temperature  of  the  material  medium  at  position  x, 
time  t  will  be  denoted  by  T(x,t).  The  material  parameters  (assumed  con¬ 
stant)  are  given  by: 

C  =  Specific  heat, 

p  =  Density, 
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k  =  Thermal  conductivity, 
k 

a  =  Thermal  diffu6ivity, 

Tg  =  Absolute  temperature  of  fusion  or  sublimation, 

=  Mass  absorption  coefficient  for  source  radiation, 
a  =  PK  u  Volumetric  absorption  coefficient  for  source  radiation, 

R  =  Surface  reflectivity  for  source  radiation, 

€  =  Total  emissivity  of  surface. 

In  addition,  T^  denotes  the  initial  absolute  temperature  of  the 
material,  T^  denotes  the  effective  bJackbody  temperature  of  the  external 
region  (x  <0),  and  a  is  the  Stefan-Boltzmann  constant. 

The  surface  fluxet  associated  with  source  radiation,  thermal  radia¬ 
tion,  and  conduction,  are, respectively, 


<Ps(0,t)  =  (1  -  R)E(t) 


^T(0,t)  =  -«r 
<Pci O.t)  =  -  k 


3T 

dx 


x=0 


(1) 

(2) 

(3) 


The  general  boundary  condition  for  the  heat  conduction  problem  is 


-^(0,t)  +  <?c(0,t)  =  <Ps(0,t)  (4) 

Within  the  solid  material,  account  will  be  taken  of  the  conductive  and 
source  fluxes  only,  since  the  measured  values  of  conductivity  presumably 
include  a  first  order  contribution  from  radiative  diffusion,  and  the  high 
order  contributions  are  presumably  not  more  significant  than  the  tempera¬ 
ture  dependence  of  the  conductivity  which  is  being  ignored.  If  the  atten¬ 
uation  of  the  source  flux  within  the  material  can  be  described  by  a  single 
coefficient  as  in  the  case  of  a  laser  source. 


<Ps(x,t)  =  (1  -  R)t(t)  e  "ax 


(5) 
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The  heat  conduction  equation  is  then 

d(p  9  <p 


or 


d^T  1  9T  .  D\airf*\  -ax 

"I'll 

ax 


The  initial  condition 


T(x,  0)  =  Tq  ,  x  >  0 


(6) 


(7) 


(8) 


then  completes  the  specification  of  the  problem. 

1.  3.  EXAMPLE:  HEATING  OF  A  METALLIC  SLAB  BY  A  PULSED 
SOURCE 

In  a  medium  with  relatively  high  conductivity  and  low  transparency 
for  source  radiation,  the  conductive  fliut  will  dominate  not  only  the  thermal 
radiative  flux  at  the  surface  but  also  the  source  flux  inside  the  medium; 
i„  e. ,  at  times  of  interest  the  characteristic  depth  of  the  conductive  front 
will  be  large  compared  with  the  characteristic  depth  of  penetration 
of  the  source  radiation  1/a.  The  equation  to  be  solved  is  then  the  homo¬ 
geneous  heat  transfer  equation 


l—  I 

*  2  “  ol  9  t 
dx 

with  boundary  condition 


x  >  0,  t  >  0 


(9) 


x=Q  =  <1  -  R)  E(t)  ,  t  >  0  (10) 

and  initial  condition  (8). 

We  note  first  that,  with  the  aid  of  DuhameFs  Theorem,  this  problem 
can  be  reduced  to  a  simpler  problem  in  which  the  boundary  condition  is 
that  the  flux  be  a  constant.  That  is,  let 
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:*  -  ,:W 


T(x't)  =  ^  /  •(*•*■  w 


dt. 


(H) 


Then  0(x,  t,tg)  is  a  solution  of  the  equation 


8x 


1  1_  9£ 

2  “  a  8 1 


=  0 


(12) 


with 


"k  8x 


x=0=.(l-R)E(t0) 


(13) 


and 


«(x,0,t  )  -TQ 


(14) 


Assume  a  solution  of  form 


9  =  C  t  n/2  f  /  — — \+  T 
°  n  \/4  */  ° 


(15) 


Then,  from  Eq.  (12),  f  (z)  must  be  a  solution  of  the  equation 

n 


d  f  df  _  ,  A 

— —  +  2z  - - 2n  f  =  0 

,  L  dz 

dz 


(16) 


or 


f  (z)  =  in  erfc(z) 
n 


(17) 


.n 


where  the  functions  i  erfc(z)  satisfy  the  relations 


in  erfc(z)  = 

.  l 

/  in  erfc(s)  ds 

J 

-1  ,  . 

z 

2  -z2 

i  erfc(z)  = 

/  e 

\T* 

2n  i.n  erfc(z)  = 

•  d ""  2  gt  m  i  ,  n 

i  erfc(z)  -  2zi 

in  erfc(0)  = 

1 

2”r  (f  ♦  0 

4 

(18) 

(19) 

(20) 


(21) 


/*■ 
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The  functions  i°  erfc  and  i1  erfc  are  written  as  erfc  and  ierfc,  respectively. 
On  imposing  the  condition  (13),  one  notes  first  that  n  =  1,  and  also  that 


-k  =  i  '(0)  =  (1  -  R)  E(t0) 
y/4a 

or,  using  Eqs.  (18)  and  (21)  to  show  that  f^(0)  =  -1 
0(x, t,t_)  = - -(1  -  R)  E(t  )  t1/Z  ierfc 


(22) 


v  "  jsst  0 

From  Duhamel's  Theorem,  Eq.  (11),  ant*  using  also  Eqs.  (20)  and  (19), 

t 

0  0  °  l/4«<t-tn) 


(23) 


T(x,  t)  =  2(‘  £  f  E(t0)  (t  -  t0)1/2  ierfc 

V  kCp 


*o  +  To 


1-R  j 


ierfc  ( 


/4o<t-t  ) 


)  + 


7  ■  -=  erf'  (  r- 

]/4a(t  -  t.)  V4' 


=£=)] 
o(t  -  t J  J 


dt0  +  T0 


1-R 


1 

1 


t  E(tft)  -U/4a(t-t)l 


/rkCp  0  yt  -  tQ 

A  pulse  shape  E(t)  which  has  been  found  useful  is 


dt0  +  T0 


EM  -  (m  +  il  E  tm 

E(t)  "  m  +  1 
"l 


0  <  t  <  t 


1 


(2ti  .  t)  “ti  <  ,  <  2tl 


2t 


m 


(24) 


t  >  2t, 


(25) 
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That  is,  E  rises  as  the  m  power  of  the  time  to  a  maximum  at  time  t^, 
then  decreases  in  a  symmetric  manner  to  zero  at  time  2tj.  The  width  of 
the  pulse  at  half  maximum,  A,  is  given  by 

A  =  2(1  -  2  _1/m)  tt 

The  constant  E  is  the  time  integral  of  E  over  the  entire  pulse,  in  ergs/cm* 
An  explicit  solution  is  readily  derived  for  the  time  interval 
0  <  t  <  t  ,  the  rising  portion  of  the  pulse.  In  general,  for 

E(t)=Atn/Z  (26) 

where  n  is  an  integer  not  less  than  -1, 

T(x,  t)  =  TQ  +  A(l-R)  (kpC)'1/2r(in  +  l)(4t)  in+i  in+lerfc  — —  (27) 

The  surface  temperature  is  given  by 

T(0,t)  =Tq  + A(1  -  R)(jrkpC)-i  B( in  +  l,i)tin+i  (28) 


where  B(p,q)  =  r(p)  lXq)/r(p  +  q)  is  the  beta  function. 

Returning  to  the  pulse  shape,  Eq.  (25),  the  surface  temperature  may 
be  obtained  by  substituting  Eq.  (25)  into  Eq.  (24),  setting  x  =  0,  and  evalu¬ 
ating  the  integrals;  for  m  =  4, 


T(0,t)  =  T0  +  (wkpCf  *  (1  -  R)  Atj  9/2  I(s) 


(29) 


where  s  =  t/t. 


b  _  1 

I(s)  =  f  E(a)  (s  -o)  2  da 
J  0 


Ws  s’/2  -  iB<s  -  l>3/2  <24»2  -  «■  +  59)  H(s-l) 


25b  Q/2 

Jig  (s-2r'6H(s-2) 


(30) 
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H(x)  =0,  x  <  0 

=  1,  x  a  0 


and 


A  = 


(m  +  1)  E  5E 
2tlm+1  =  Zt,1 


The  dimensionless  quantities 

i 


1(8) 


( 7T  koC ) ' 


(1  -  R)At 


9/2 


1 


T(0,  t)  -  T, 


and 


E(s) 


At, 


are  plotted  as  functions  of  s  in  Fig,  1.  The  temperature  rises  as  the  9/2 
power  of  the  time  from  t  =  0  to  t  =  t^  and  reaches  a  maximum  at  approx¬ 
imately  1, 10  tj,  This  result  has  been  closely  reproduced  by  difference 
equation  solutions  to  the  heat  conduction  equation. 


1.4.  THE  RADIATION  BOUNDARY  CONDITION 

If  the  temperature  of  the  surface  of  the  target  becomes  sufficiently 
high  before  sublimation  or  melting  occurs,  the  blackbody  radiation  from  the 
surface  can  no  longer  be  neglected.  In  the  transient  regime  tills  radiation 
condition  can  become  of  major  importance  for  the  case  of  refractory  non- 
metal  targets  (for  a  good  conductor  the  conductive  flux  would  still  over¬ 
whelmingly  predominate)  when  the  total  energy  delivered  by  the  source  is 
near  the  ablation  threshold. 

We  consider  again  the  homogeneous  problem  (Eq.  (9))  in  which  the 
source  deposition  is  assumed  to  occur  only  at  the  surface.  The  boundary 
condition  is,  from  Eq.  (4), 


■k 


8T 
8  x 


x=0 


+  €<T 


T(C,t) 


4 


=  (1  -  R)  E(t) 


(31) 


7 


Figure  1.  Relative  Temperature  and  Source  Intensity  versus  Time 
(Dimensionless  Plot) 
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Since  this  condition  is  nonlinear  in  T,  some  artifice  must  be  employed  in 
order  to  obtain  a  solution.  Two  will  be  considered: 

1.  Implicit  solution. 

2.  Linearization. 

Linearization  is  appropriate  when  the  total  change  of  surface  temperature 
during  the  time  of  interest  is  relatively  small.  However,  for  refractory 
materials,  which  can  be  heated  over  a  large  temperature  range,  this 
assumption  is  not  always  particularly  good.  An  implicit  method  which 
solves  the  problem  with  the  exact  nonlinear  boundary  condition  will  there¬ 
fore  be  described  first.  The  method  is  essentially  that  of  Jaeger  (Ref.  3). 

Assume  that  T(0,t),  T(0,t)  ,  and  E(t)  may  all  be  expanded  in  powers 
of  the  variable  z  =  t  * : 


f 

T<o-t,=  ToX  ^  *n/2 - v<*i 

n=0 


(32) 


W.  Tq4  f  £«”/2.Tog(,> 
n=0. 


(33) 


E<t»  ■  A  X  ST 


n  (n/2 


n=0 


(34) 


The  application  of  the  initial  condition  (8)  then  provides  at  once 


V1 


and 


g0  =  1 


(35) 


The  first  step  in  the  solution  is  the  derivation  of  the  relations  be¬ 
tween  the  g^  and  the  f  .  Since  g(z)  -  f(z)4, 


f(z)g'(z)  -  4f'(z)g(z)  =  0 


(36) 


Differentiating  Eq.  (36)  n  times,  setting  z  =  0,  and  noting  that  f^(0)  =  f 
(r)  r 

g  (0)  =  gr>  one  obtains 


X  0  (£r*n-r  .I""..  l*n-r>  *  0 


(37) 


r=0 
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Equations  (35)  and  (37)  may  readily  be  solved  explicitly  for  the  g  : 


80  =  1 


*i  ■  4£i 


H  - 12  £1  +«2 


The  second  step  is  the  solution  of  the  heat  conduction  equation  (9)  for 
the  temperature  TJx,  t)  when  the  surface  value  is  a  prescribed  function  of 

time:  TjO.t)  *  vj1  2,  where  Vn  =  T Qfjn\  .  The  Laplace  transform  of 
Eq.  (9)  may  be  written 


d  S  2 

— 2  -  q  S  =  0,  x  >0 
dxZ 


where 


S(x)  =  /  T  (x,  t)  e"pt  dt 


q  =  p/a 


The  boundary  condition  at  x  =  0  is  that  S  shall  be  the  transform  of  V  tn/2, 
namely,  n 

W  =  vnu»ft|p-'-nfi  ,42, 


The  solution  of  Eq.  (39)  which  satisfies  this  condition  and  is  regular  at 
infinity  is 


S(x)  =  S(0)  e'qx 


The  inverse  transformation  then  yields  the  desired  result  for  the 
temperature: 


Tn(x,t)  =  Vnr<l  +  a/2)  (4t) 


n/Z  .n 


inerfr/  X  \ 


SE  ,  , 

r  Ih  .  *  a. • 


S  *  /V 


*•* 


^  ■  * 


•  > 

*  4f 


r^r 
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Linear  superposition  of  the  contributions  given  by  Eq.  (44)  for  each 
n,  as  in  Eq.  (32),  then  yields  the  complete  solution  T(x,t): 

40  f 


T(x,t)  =  T 


1  +  S  frr<1  +  n/2)(4t)n/2  inerfc  (— 

■ nl  U=», 


n=l 


(45) 


It  remains  to  determine  the  coefficients  f^  using  the  boundary  condition 
(31).  The  conductive  flux  at  the  surface  is,  from  Eqs.  (18),  (21),  and  (45), 

i-l)/2 


,  9T 
-k  - — 
dx 


=  ka‘1/2  T 
x=0  0 


V  r(l  +  n/2)  t(n- 

n!  r  (1/2  +  n/2)  n 

n=  i 


.ka-*/2T  5'  _ f  tn/Z 

Lo£-  (n  +  1)!  Til  +n/2)  n+ll 


(46) 


n=0 

Substituting  Eqs.  (46),  (33),  and  (34)  into  Eq.  (31),  one  finds  for  n  =  0 
k“"1/2  T0V|'fl  +  e<T(T04  “  TA4)  =  (1  "  R)Ahl 


(47) 


and  for  n  >  0  _ 

v  r(rf) 

ka  'r  Si — — 


or  for  n  —  2 


ka'1/Z  T 


0  (n  +  1)  r(l  +  n/2)  £n+l  +  €<rT0  gn  =  ’*  *  R)  ^n 
r(‘  +f)  4 

0  f)  =  (1 '  R,Ah”-‘ '  "*«  *-1  <48) 


The  solution,  Eq.  (45),  is  thus  completely  specified.  With  the  coeffi¬ 
cients  hn  given,  one  finds  first  fj  from  Eq.  (47),  then  gj  from  Eq.  (38),  f ’ 
from  Eq.  (48),  g  from  Eq.  (38),  etc. 

An  alternative  approach  to  the  above  is  to  specify  a  linearized  radia¬ 
tion  boundary  condition  in  place  of  Eq.  (31): 


-  S  +»  [T‘°**>  '  TaI  - 


1  -  R 


£(t) 


(49) 


where  in  some  sense 


h(T  "  ta>  ~  T  (t4  ‘  ta4) 


(50) 


■ . | . nafay1 


t  ^  4M 
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is  an  adequate  approximation  for  the  problem  at  hand.  For  problems  in 
which  |T(0,t)  -  «  1  at  all  times  of  interest,  a  good  fit  is  obtained 

by  defining 

h  =  h^  =  4  ecrT^/k  (51) 

Equation  (51)  underestimates  the  radiative  cooling  rate  for  T(0,t)  >  T\.  A 

A 

second  alternative  is 

h  *  h2  *  ¥  <tb4  ■  ta4)/,tb  •  V  <52> 

which  is  correct  for  T(0,t)  =  TA  and  T(0,t)  =  Tfi,  but  overestimates  the 
cooling  rate  at  all  intermediate  temperatures.  A  third  alternative,  inter¬ 
mediate  between  hj  and  h^  in  value,  is  defined  by 

h  =  h3  '  f  I  <TB  -  TA>3  +  2TA(TB  *  TA>2  +  4TA2(TB  *  V  +  4TA3  <53> 

This  yields  the  correct  total  radiated  energy  between  T  =  T  and  T  =  T  , 

A  B 

if  T(0,t)  is  a  linear  function  of  the  time;  in  this  sense  it  gives  an  approxi¬ 
mately  correct  mean  cooling  rate  over  this  interval. 

With  the  initial  condition 

T0=T(x,0)  =  Ta  (54) 

and  the  boundary  condition  (49),  the  general  solution  is 

T(x,t)-TA  =  i-(l  -R)  /  e’hy  dy  /  ±(t  -  dz  (55) 

y/v  0  x-y  \  4az  / 

(see  Ref.  2,  p.  74).  Other  formulas  involving  the  linearized  radiation 
boundary  condition  are  presented  in  the  following  section. 

1.5.  INTERNAL  SOURCE  DEPOSITION 

We  consider  next  the  case  in  which  the  depth  of  penetration  of  the 
source  radiation  is  not  negligible;  i.e.,  at  times  of  interest^/aTis  not  large 
compared  with  1/a.  The  source  flux  must  then  appear  in  the  differential 


12 
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equation  rather  than  in  the  boundary  condition.  For  simplicity,  we  adopt 
the  initial  condition  (54)  and  define  0(x,  t)  =  T(x,t)  -  TQ.  Then  the  equation 
to  be  solved  is  (7),  or  in  the  present  notation, 


x  >  0 

a  x 


with  the  linearised  radiation  boundary  condition 


and  initial  condition 


£■  h*>  x  =  0 


Six,  0)  >  0 


The  general  solution  of  this  problem  may  be  written  in  the  form 

t  00 

f  r  -axQ 

0 (x, t)  = (1  -  R|jp  J  dt  4(t  )  J  dx  e  C(*,t|*0,t0) 

0  0 


where  G(x,t  Jx^tg)  is  the  temperature  rise  at  x,t  due  to  a  unit  source  at 

x  , t_  <  t.  Several  forms  of  this  Green's  function  may  be  written,  the 
0  0 

choice  being  one  of  computational  convenience.  We  introduce  first  the 


infinite  medium  heat  conduction  kernel 

»  „2_,.  .  v 


U(x,t|x0,t0)=  - 


I  f  •»  ““-‘o' 


cos  /3  (x  -  Xq)  d/3 


1/2 

=  4  n<*  (t  -  tQ)  exp 


<x  -  XQ> 

4a  (t  -  tQ) 


(60a) 


(60b) 


which  satisfies  the  equation 


DU  dU  _ 

„  =0,  -<*<-. 

ax 


t  >  t„ 


with  initial  condition 


u(x,t0  |x0,tQ)  =6(x  -xQ) 
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U  — “  0  as  jx  **  »  and  a«  t  -*  + 


This  kernel  is  itself  the  Green's  function  for  the  infinite  medium.  For  our 


semi-infinite  medium,  the  Green's  function  may  be  found  by  the  method  of 
images  (Ref.  4): 


G(x,  t  |  xo,to>  *  U*x,t  ,xo*V  +  u<x»tl“  ^q) 


f 

-  2h  J  U(x,t|y,t0)e 


h(xQ+y) 


1  r °°  “0  a(t-t0) 

=  ~  J  dP  e  cos  (i  (x  -  x_)  +  cos  0  (x  +  x.) 

n  jq  0  0 


-h(y-x-) 

-  2h  J  e 
*0 


cos  0  (x  +  y)  dy 


=  |4  jra(t  -  tQ) 


(x  -  x0) 


r*p  [-  iSjrrgJ +  exp  l-  iMrrg 


(>*  +  xQ) 


-  2he 


[-hy-^>  ]| 


=  |4,a(t  -  t0)| 


-1/21 


(x  -  xQ) 


exp  l-  iSiTTyJ  +  “P  1-iStTXj 


(x  +  XQ) 


h  exp 


,  2  I  rx+xQ  +  2ha(t  -  t  ) 

I  h(x  +  x  )  +  h  a(t  -  t  )  krfc  - . _  ;  : - (64) 

1  L/4a(t-t) 


Equation  (59)  has  the  form  of  a  Laplace  convolution,  so  that  if  the 


Laplace  transforms  of  0(t),  E(t),  and  G(t-t^)  are  denoted,  respectively,  by 


0(p),  E(p),  and  G(p),  then 


0(x,p)  =(1  -  R)^E(p)  G(p)e  ydxQ 


mM 
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The  transform  of  the  Green's  function  is 


(66) 


where  q  =  p/a  as  before.  Therefore, 


f  dx 
0  0 


-ax. 


-ax 


*cx 

0  Pe  -  aaq  e 

e  G{p)  =£. - j - — 


he 


-qx 


p  -  a  ctp 
and  the  general  result  is  thus 


Of  q  [q2  +  (h  +  a)q  +  ha 


(67) 


c+i* 


6  (x.  t)  =  ( 1  -  R)  ^  f  dpE<p)ept 

/«  2  OB 


c-i°° 


ae 


-qx 


lie 


■qx 


q(q2-a2)  q(q  +  *q  +a} 


(68) 


Although  this  expression  involves  only  a  single  quadrature,,  it  is  not  neces¬ 
sarily  easier  to  evaluate  than  (59),  even  when  h  =  0.  Numerical  methods 
based  upon  either  form  are  certainly  possible  and  are  worth  investigating. 

1.6.  CONCLUSIONS 

The  analytic  approach  offers  some  significant  advantages  over  purely 
numerical  methods  of  solving  difference  equations  representing  the  flow  of 
heat.  It  is  not  subject  to  numer  ical  instability  difficulties  or  to  truncation 
error,  and  simple  problems  may  be  colvad  with  far  less  computational 
cfioTt  than  the  numerical  approach  demands.  Furthermore,  many  features 
of  the  solution,  such  as  the  existence  and  location  of  maxima  and  minima, 
the  leading  terms  of  power  series  expansions  of  the  solution,  and  perturba¬ 
tion  coefficient :»  which  describe  the  effects  of  small  changes  in  the  param¬ 
eters  of  the  problem,  may  be  derived  directly.  Many  of  these  features  can 
be  obtained  only  with  considerable  difficulty  from  a  numerical  treatment. 

On  the  other  hand,  it  must  be  recognized  that  the  numerical  approach 
is  potentially  far  more  powerful  and  versatile.  Temperature-dependent 
conductivity,  the  radiation  boundary  condition,  complex  time  and  space 
dependence  of  the  problem  characteristics,  and  two-  or  three-dimensional 
geometry  can  all  be  handled  within  the  scope  of  a  practicable  calculation 
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effort.  One  can,  in  effect,  solve  the  roal  problem  with  which  one  is 
presented,  rather  than  some  idealized  problem  which  bears  an  imperfectly 
known  relation  to  the  real  problem. 

The  use  of  analytic  methods  within  the  framework  of  a  basically 
numerical  approach  remains  to  be  considered.  For  example,  in  a  two-  or 
three-dimensional  calculation  it  might  be  preferable  to  use  a  numerical 
approach  based  upon  the  integral  formulation  (Eq.  (59))  rather  than  the 
difference  equations.  Even  where  the  difference  equations  are  entirely 
adequate,  it  may  require  less  computer  time  to  evaluate  an  analytic  formula 
for  those  cases  in  which  one  is  available.  Purely  analytic  and  purely 
numerical  methods  are  merely  the  extremes  of  a  "spectrum"  of  available 
approaches;  for  the  majority  of  problems  the  most  practical  techniques 
probably  involve  some  combination  of  the  two. 
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2. 1.  INTRODUCTION 


In  a  two-dimensional  geometry  the  phenomena  of  vaporization  and 
heat  conduction  are  considerably  more  complex  than  in  one  dimension,  and 
the  simplest  approaches  to  the  calculations,  employing  explicit  differencing 
of  the  partial  differential  equations  involved,  are  even  less  feasible  than  in 
the  one -dimensional  case.  The  approach  taken  in  the  effort  to  develop  a 
two-dimensional  Eulerian  interaction  code  has  therefore  been  to  concen¬ 
trate  on  the  analytic  description  of  the  physical  processes  involved  in  more 
or  less  typical  applications,  rather  than  on  the  most  general  possible  solu¬ 
tion  of  the  equations.  For  this  reason  the  approach  is  essentially 
one -dimensional. 

2.2.  VAPORIZATION 

The  following  equations  are  employed  in  the  description  of  vaporiza¬ 
tion  at  the  surface: 

Continuity 


m  =  p  u 
o  a 

(69) 

m  =  plCl 

(70) 

Equation  of  motion 

P.  +  me.  =  P  t  mu 

(71) 

m 


at.: 
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Energy  conservation 


m(Hj  +  12.  - 


Vaoor  equation  of  state 


Pj  =  (r-Dir  Pj 


Hueoniot  pressure  in  solid 


a  (1  -  Pjpj 


p  -  0(1  -  p  /  p  ) 
s  so 


These  six  equations  involve  seven  unknown  cuantities: 


m  Mass  ablation  rate, 


Density  on  solid  side  of  solid-vapor  interface, 


p  ^  Density  on  vapor  side  of  solid-vapor  interface, 


:  ^  Magnitude  of  vapor  velocity  at  solid-vapor  interface, 
relative  to  the  interface, 


u  Magnitude  of  ablation  velocity,  i.  e, ,  velocity  of  solid 
— relative  to  the  interface,  - 


Pressure  on  solid  side  of  solid-vapor  interface, 


Pressure  on  vapor  side  of  solid-vapor  interface. 

The  equations  also  involve  seven  material  parameters,  assumed  to 


be  known: 


H  Specific  internal  energy  of  solid  at  the  vaporization 
temperature, 


Hy  Specific  internal  energy  of  vaporization, 


p  Normal  solid  density, 


* 


. 

.  ..  •  \.  ' 
^.yjagluw  vv  • 

•  • 


•  %  ,  * 


* 


pi 


* 
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H'  Specific  random  internal  energy  of  vapor  at  the  interface, 

V 

*  V;. 4‘  ■“  *  ■  f.  >-4 

y  Polytropic  index  oi  vapor, 

a,  1 3  Constants  in  empirical  low-pressure  state  equation  for 
solids: 

2 

P  =  Qfu  +  0u  ,  where  u  is  the  particle  velocity  (Ref.  1). 
P  P  P 

The  specific  enthalpies  of  vapor  and  solid  at  the  interface  are  defined, 
respectively,  by 

=HC  +Hy  +PX/  Pj  (75) 

H  =  H  +  P  IP  (76) 

o  C  o  o 


Finally,  the  net  energy  flux  at  the  interface  available  for  producing  vapor, 

<pc  ,  is  assumed  known.  In  effect, 

5V 

«>sv  =  E  -  <PC  (77) 

where  E  is  the  total  incident  flux  on  the  interface  and  <P  is  the  loss  due  to 

c 

heat  conduction  into  the  interior  of  the  solid.  The  latter  term  is  treated  in 
detail  in  Section  2.3.  All  quantities  defined  above  are  non-negative;  vector 
quantities  are  represented  by  their  magnitudes,  since  relative  orientations 
are  determined  by  the  model  assumed.  The  evaluation  of  the  solid  pressure 
on  the  Hugoniot  replaces  the  more  complete  equations  of  state  and  motion 
for  the  solid,  which  are  not  needed  for  the  analysis  of  many  interaction 
processes.  This  remains,  however,  a  limitation  of  the  model  which  may 
require  further  developmental  effort  in  the  future. 

Since  the  number  of  equations  is  one  less  than  the  number  of  un¬ 
knowns,  an  additional  condition  is  necessary.  The  velocity  c^  of  the  vapor 
at  the  interface,  relative  to  the  interface,  must  be  such  that 


(78) 
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That  is,  it  cannot  be  less  than  the  constant  density  limit,  in  which  P  =  p  , 
nor  greater  than  the  Chapman- Jougv.et  limit,  namely,  the  local  sound 
speed,  i'or  which  the  entropy  is  a  maximum.  If  c^  lies  between  these 
limits,  the  pressure  on  the  vapor  side  of  the  interface  is  obtainable  . 
from  the  conditions  in  the  external  vapor  field,  for  example,  by  integration 
back  from  an  exterior  boundary  condition.  In  any  of  these  three  cases,  the 
additional  condition  is  determined  by  the  hydrodynamic  coupling  of  the 
vapor  at  the  interface  to  that  beyond  the  interface.  The  constant  density 
limit  should  theoretically  be  instead  a  constant  pressure  limit;  i.e. ,  with 
a  more  detailed  state  equation  treatment  in  both  vapor  and  solid,  the  lower 
limit  of  c  wuuld  appear  naturally  from  the  formulation  as  a  condition  in¬ 
volving  constant  pressure  across  the  interface  rather  than  constant  den¬ 
sity.  In  the  absence  of  such  a  more  detailed  and  algebraically  involved 
treatment,  the  constant  density  assumption  is  a  reasonable  and  convenient 
artifice. 

Case  1.  Assume  first  that  <PC  is  sufficiently  small  that 
2  bV 

CJ  =  y{y  -  1)H|_.,  the  Chapman- Jouguet  case.  Then  using  Eqs.  (69),  (70), 
(71),  (73),  (75),  and  (76),  Eq.  (72)  may  be  written  in  the  form 

m[Hv+  ci2  (l-  ua/C]L)2/2  +(y-l)H^(l-ua/Cl)J=  ^sv  (79) 

or,  since  ablation  velocity,  particularly  in  this  case,  must  be  small  com-- 

pared  with  the  sound  speed  in  the  vapor,  u  /c.  <<  1  and 

a  1 

m  ^  <Psy/  (Hy  +Cl2/2  +  (y-  1)H|J  (80) 

The  remaining  unknowns  are  then  obtained  by  solving  Eq.  (69)  for  u  , 

a 

Eq.  (70)  for  P. ,  Eq.  (73)  for  P.,  Eq.  (71)  for  P  ,  and  Eq.  (74)  for  P  . 

A  1  O  O 

The  value  of  P^^  obtained  by  this  procedure  is  denoted  by  P^,,  or  "P-test". 

Case  2.  Now  assume,  in  contrast  to  Case  1,  that  the  relative  velocity 
of  the  interface  and  the  vapor  at  the  interface  is  less  than  the  sound  speed. 


20 
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...T  |  0  * 


Then  the  interface  remains  within  the  range  of  influence  of  the  external 
vapor,  and  the  pressure  Py  at  the  interface  may  be  found  as  follows.  De¬ 


note  the  pressure  in  the  zone  adjacent  to  the  interface  by  P  ,  the  pressure 

K 


in  the  next  zone  by  pK+j»  and  the  widths  of  the  zones  by  A^,  AK+^.  Then 


P  =  P  if  P  <  P 
V  K  K  K+l 


P  -  P 

p  =p  _K - Kli 

V  K+  K4kUw 


“  PK  >  PK+1 


and  the  true  interface  pressure  is  taken  to  be 


PL  =  max  (PT,Py) 


KPj  =  P^,»  i.e.,  if  P^  >  Py,  the  Case  1  calculation  already  performed 
is  confirmed.  Otherwise,  it  is  dropped  and  the  Case  2  calculation  is  sub¬ 
stituted  as  follows.  Equation  (79)  may  be  rewritten,  using  Eqs.  (70)  and 
(73)  as 


(y  -  1)H'  l2  -  P.l 

- p 7s* --  *>  +  Hv  +  (r  -  DHJ.  ..  /  *  =  ^ 


which  is  a  cubic  of  the  form 


Am  +  Bm^  = 


2 ,  2 
a  =  A  /?sv 


»  *  *sv/2B 


SA  =  b(  /I  +  4Aa/27B  +  1) 


SD  =  b(  /l  +  4Aa/27B  -  1) 


NX  Tm 3--.  ' 


r  *  t 


WL 


V 


■if 
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T  '  ,:"t  r&t. 


The  orly  real  root,  in  physically  valid  cases,  is  then 


A  B 

2, .3 


(85) 


if  B/Aa  =  B<Pgy  /A  is  small,  specifically  less  than  0.01,  then  and  S. 
are  nearly  equal  and  the  form 


B 


^sv  L  B<psv 
m  =  —  1-— T 


(86) 


is  used. 

The  procedure  is  as  follows:  Given  evaluate  P^  by  Eq.  (73)  and 
provisionally  assign  the  value  P  to  P  .  Then  eva1uate  m  by  Eq.  (85)  or 
(86),  u  by  Eq.  (69),  c,  by  Eq.  (70),  and  P  by  Eq.  (71).  If  P.  -P  or 
equivalently  P^  ^  (y  -  1)H^  PQ»  t*16  calculation  is  then  complete.  If  how¬ 
ever,  P^  >  (V  -  l)Hj_.  Pq,  first  try  re-evaluating  from  Eq.  (74)  to 
determine  if  the  solid  has  been  shocked  to  a  sufficiently  high  density  to 
pass  the  test.  If  this  is  insufficient,  the  Case  2  calculation  is  dropped  and 
the  Case  3  calculation  is  substituted. 


Case  3,  This  is  the  constant  density  case;  the  solution  is  given  by 
setting  P  =  P  ,  solving  Eq.  (74)  for  P  ,  and  setting  P  =  p  .  Since  by 

O  1  O  1  o 

Eq.  (71)  c.  =  u  ,  Eq.  (72)  reduces  to 
l  a 


m 


(87) 


which  is  essentially  equivalent  to 


m  = 


Hv  +  Hc 


(88) 


since  conductive  steady  state  is  quickly  achieved  under  these  conditions. 
Finally,  u  is  determined  by  Eq.  (69). 

3. 
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The  HECTIC  code  at  the  present  time  employs  a  still  simpler  pro¬ 
cedure  in  which  P  is  identified  with  P  under  all  conditions  so  that  Eq. 

(74)  is  not  used  at  all.  The  procedure  described  above  merely  indicates 
refinements  which  can  be  readily  made  without  modifying  the  vapor  state 
equation  or  introducing  a  complete  solid  state  equation  into  the  formulation. 

2.3.  CONDUCTION 

The  basic  equation  for  the  description  of  heat  flow  in  the  solid  is 
88  8*8 

PoCv"8t  =  k  7"2  +  q<a,tl  1891 

9s 

where  q(s,t)  represents  the  net  source  of  heat  at  a  fixed  position  s.  It  is 
convenient  to  transform  this  equation  to  a  moving  coordinate  x  such  that 

s  = x  +  fr  <90> 

o 

i.e, ,  x  represents  the  depth  in  the  solid  relative  to  the  moving  solid-vapor 
interface.  The  transformed  equation  is  then 


poCv?T  =  k7I+,ilCva!  +  q-  x-°  <91> 

ox 

The  additional  term  mCy  9  0/ Bx,  which  is  negative,  represents  an  effec¬ 
tive  reduction  of  the  heating  rate  at  a  point  x  as  this  point  moves  down  the 
temperature  gradient.  The  term  q  is  defined  by 

q  =  Q(x,t)  -  ?sv  6(x)  (92) 

where  Q  =  -  (9E/9x)  is  the  local  heating  rate  due  to  the  external  source 
and  the  second  term  accounts  for  the  energy  removal  by  vaporization  at 
the  interface,  which  is  to  be  computed. 

The  physical  model  is  that  of  an  initially  cold  solid,  which  is  heated 
by  the  incident  flux  until  the  surface  temperature  reaches  H^/Cy,  at  which 
time  vaporization  begins.  On  the  assumption  that  at  a  time  t  the  depth  of 
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the  conductive  front  y/oF (where  a  =  k/C is  the  thermal  diffusivity)  is 
large  compared  with  the  characteristic  depth  of  the  solid  in  which  the 
source  E  is  deposited,  the  temperature  is  given  by  the  general  formula  (Ref.  2) 
(cf.  Eq.  (24)  in  Section  1): 


fl(x,  t)  =  ( 7rkCv  Pq) 


-1/2 


/ 


E(0,t»)  e-x  /4a(t  -  f)  dt, 

v/t  -  t' 


(93) 


If,  as  is  usually  the  case,  the  deposition  depth  can  be  neglected  by  the  time 
the  surface  begins  to  vaporize,  then  this  time  t^  can  be  determined  from 
Eq.  (93): 


«o.tc>  *VS  =  '“vV1'2 


(94) 


At  time  t  the  temperature  distribution  near  the  surface,  given  by  Eq.  (93), 
may  be  expanded  in  powers  of  x: 


H( 

9<x-tc>  =  c: 


— - —  x  +  0(x  ) 


kH, 


which  implies  that  the  conductive  flux  at  the  surface 


(95) 


is  equal  to  the  source  flux  E(0,tc).  This  is  equivalent  to  stating  that  there 

is  (for  t  ^t  )  no  surface  singularity  to  make  the  energy  flux  discontinuous, 
c 

It  is  also  the  case  that  the  distribution  of  temperature  defined  by  Eq.  (93) 
is  roughly  exponential  in  x,  and  that  this  general  shape  holds  at  later  times 
as  well.  The  approximation 


CV 


t  ^  t  ,  x  —  0 
c 


(97) 
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where,  according  to  Eq.  (95), 


z<‘c»  - 


Cv  E(0,tc) 


is  therefore  not  unreasonable,  particularly  in  view  of  the  fact  that  the  de¬ 
tailed  spatial  distribution  of  temperature  in  the  solid  is  not  of  interest. 

The  specification  of  the  function  z(t)  may  be  made  by  substituting 
Eq.  (97)  into  the  two  first-derivative  terms  of  Eq.  (91)  and  integrating 
over  x  from  -0  to  00 ; 


PoHC  3?  *  fc’c'"’  -  *c(-0)1  -“t  +  =  ■  ”sv 


(9* 


Since  the  conductive  flux  vanishes  at  infinity,  and  also  at  -0,  which  is  be¬ 
yond  the  interface,  the  result  is 


dz 

dt 


[E(0.t)  -  mil] 

o  C 


(10( 


where  H,  the  total  specific  energy  for  heating  aid  vaporization,  is  given 
by 


riiH  =  <psy  +  mHc  «  m  [Hc  +  Hy  +  c^/2  +  ( y  -  l)HjJ 


(10] 


(which  follows  from  Eq.  (79)  withu  / c,  «  1).  The  differential  equation 
(100),  with  initial  condition  (98)  therefore  describes  the  advance  of  the 
conductive  front  in  a  straightforward  manner,  and  provides  a  simple  ap¬ 
proximation  to  the  true  solution  of  the  heat  conduction  equation.  '  The  ex¬ 
plicit  difference  representation  of  Eq.  (100)  is  solved  at  the  conclusion  of 
each  cycle,  following  the  vaporization  procedure  described  above.  The 
conductive  flux,  Eq.  (96),  is  then  calculated  as 


kH, 


<*>  = 


c  Cyz(t) 


(102 


and  the  quantity  Vgy’  defined  by  Eq.  (77),  is  then  updated. 
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2.4.  APPENDIX:  GLOSSARY  AND  USAGE  OF  HECTIC  VARIABLES 


Tables  I  and  II  list  those  variable  names  in  common  storage  which 
are  currently  in  use, and  their  relative  locations,  definitions,  and  defined 
values,  if  any.  All  units  are  in  the  cgs  system,  except  for  temperature, 
which  has  units  of  electron  volts.  A  "specific"  quantity  always  means 
"per  unit  mass,  "  i.  e. ,  "per  gram.  •*  Variable  names  followed  by  an 
asterisk  are  input  quantities.  * 


Various  quantities  associated  with  boiling  are  stored  in  the  SOLID 
array.  For  each  value  of  the  7adial  cell  index  I,  there  may  be  up  to  20 
such  quantities.  Since  the  total  array  size  is  400,  a  maximum  of  20 
"boiling"  cells  is  permitted.  With  the  assumption  that  J  =  20  (I  -  1)  +1, 
the  quantities  S£)LID  (J+N)  are  defined  in  Table  II  for  various  values  of  N. 


Table  HI  is  a  cross-referencing  of  all  the  variable  names  and  the 
subroutines  which  use  common  storage.  As  "X"  in  the  table  indicates 
that  the  variable  listed  on  that  row  is  used  at  least  once  by  the  subroutine 


listed  in  that  column. 


* 


■i  *.  * 
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Table  I 

STORAGE  LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 

USED  IN  HECTIC 


Variable  name 

Loc 

Definition 

PROB 

1 

Problem  identification  number 

CYCLE 

2 

Cycle  number 

DT 

3 

Time  step  A  tn 

PRINTS* 

4 

Cycle  frequen  ^y  for  short  prints 

PRINT  L* 

5 

Cycle  frequency  for  long  prints 

DUMPT  7* 

6 

Cycle  fr':q  >ency  for  tape  dumps 

CST0P* 

7 

Maximum  allowed  cycle  number 

PI 

e 

3.  1415927 

SCYCLE  * 

1C 

Start  cycle  number;  if  positive  will 
search  dump  tape;  if  zero  will  gener 
ate  mesh  and  start  from  time  zero 

SPR0B  * 

11 

Problem  identification  number;  used  to 
check  against  PR0B  read  from 
restart  dump  tape 

ETH 

13 

Total  energy  in  system 

FFA  * 

14 

Maximum  allowed  increase  in  At  per 
cycle  (2, ) 

FFB  * 

15 

Minimum  allowed  At  (10_10sec) 

XMAX 

18 

Largest  value  of  the  radial  coordinate 

DNN 

23 

Used  in  EDIT  to  calculate  tJb  j  energy 
check  number  ECK 

DMIN  * 

24 

Maximum  allowed  value  of  ECK 

DTNA 

26 

Time  step  on  previous  cycle  Atn~* 

NC 

30 

Integer  value  of  cycle  number 

NPC 

31 

Number  of  cycles  between  short  prints 

IMAX 

33 

Number  of  zones  in  the  radial  direction 

IMAXA 

34 

IMAX  +  1 

JMAX 

35 

Number  of  ’-ones  in  the  axial  direction 
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Table  I 

STORAGE  LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 
USED  IN  HECTIC  (Continued) 


Variable  name 

Loc 

Definition 

JMAXA 

36 

JMAX  +  1 

KMAX 

37 

(IMAX)  (JMAX)  +  1 

KMAXA 

38 

KMAX  +1 

11 

47 

Active  grid  counter  in  the  radial  direc¬ 
tion  +  2 

I  2 

48 

Active  grid  counter  in  the  axial  direc¬ 
tion  +  2 

N1  * 

51 

Input  to  SETUP;  number  of  Ax  j's  or 
Ayj's 

N2  * 

52 

Input  to  SETUP;  number  of  Ax  2*8  or 

Ay  z'b 

N3  * 

53 

Input  to  SETUP;  number  of  Ax.'s  or 

V  Ay3'8 

N4  * 

54 

*  Input  to  SETUP;  number  of  Ax.'s  or 
Ay4's 

N7 

57 

Dump  tape  number 

NRM 

62 

Maximum  permitted  number  of  radiation 
cycles  per  hydrocycle;  currently 
inoperative  (bypassed  when  SN<0) 

TRAD 

63 

Radiation  time  step  (currently  not  used) 

SN  * 

65 

Switch  in  PHI  to  cause  backward  integra 
tion  in  time  to  co  rect  the  integration 
of  internal  energy  (this  occurs  when 
SN  =  0  and  UT  >  O)  (-1.  ) 

ECK 

76 

Energy  check  criterion.  At  the  short- 

prim  cycle  frequency,  the  relative 
error  between  ETH  and  the  sum  over 
cells  of  internal  and  kinetic  energy  is 
formed  and  stored  in  WSA.  The  diffe 
ence  between  WSA  and  its  value  at  the 
*ast  short  print  cycle,  divided  by 
NPC,  is  the  quantity  ECK 

28 
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Table  I 

STORAGE  LOCATIONS  AND  DEFINIT'  NS  OF  VARIABLES 
USED  IN  HECTIC  (Cor  .nued) 


Variable  name 

Loc 

Definition 

T 

84 

Total  time  to  cycle  N 

SI 

90 

Error  flag.  Its  value  indicates  the  sub¬ 
routine  in  which  the  error  occurred 

HVB  * 

100 

Heat  of  vaporization  (specific) 

HCB  * 

101 

Heat  required  to  bring  solid  to  boiling 
point  (specific) 

SVS  * 

103 

Specific  volume  of  solid 

ATOM  * 

104 

Atomic  weight  of  material 

CV  * 

105 

Specific  heat  of  solid 

GV  * 

106 

y  of  vapor  at  vaporization  temperature 

ANN  * 

110 

Exponent  for  l?.ser  pulse  function 

EZERO ^ 

111 

Total  laser  pulse  energy  per  unit  area 

PW  * 

112 

Pulse  width  at  half-maximum  for  laser 
source 

CAPS  * 

113 

Laser  absorption  coefficient  in  solid 
material 

HNU  * 

114 

Laser  photon  energy  (ev) 

COE  * 

115 

Coefficient  used  in  calculation  of  laser 
absorption  coeff.  at  temperature 
below  2  ev. 

SCR 

116 

Incident  laser  flux;  derivative  of  the  laser 
pulse  function 

ISR  * 

117 

Index  of  largest  radial  zone  irradiated 
by  source 

SCDR 

11U 

Duration  of  source 

AHN 

119 

10  2 

8.  62  x  101U  (AT0M  *  HNU) 

DTH 

120 

Shortest  cell  transit  time  in  the  mesh, 
i.  e.  the  minimum  value  of  Ax/u  or 

Ay/v 


Table  I 


STORAGE  LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 
USED  IN  HECTIC  (Continued) 


Variable  name 

Loc 

Definition 

IH 

121 

I  value  of  cell  determining  DTH 

JH 

122 

J  value  of  cell  determining  DTH 

DTC 

123 

At  determined  by  Courant  stability 
condition 

IC 

124 

I  value  of  cell  determining  DTC 

JC 

125 

J  value  of  cell  determining  DTC 

RFT  * 

126 

Reflectivity  of  target  surface  to  laser 
radiation 

CDUT  * 

127 

Conductivity  of  target  material 

HCP  * 

128 

Energy  of  gas  at  zero  temperature 

-  (H  +H  ) 
c  V 

HH 

129 

Enthalpy  of  gas  at  the  boiling  point 

CO 

130 

Sound  speed  in  gas  at  the  boiling  point 

J5* 

135 

J  value  of  vapor  zones  adjacent  to  the 
solid> vapor  interface 

SVMAX  * 

138 

Maximum  specific  volume  allowed  at 
free  surface;  no  mass  flows  to  the 
outer  cells  if  the  specific  volume 
exceeds  SVMAX  (10  14) 

FRCDTC* 

139 

Fraction  of  DTC  used  to  determine 

At  (0.5) 

VAPE 

140 

Total  internal  and  kinetic  energy  in  vapor 

RADE 

141 

Total  reflected  source  energy;  this 
energy  is  lost  from  the  system 

CNDE 

142 

Total  energy  conducted  to  interior  of 
target 

SCRE 

143 

Total  incident  energy  from  source 

IV 

144 

I  value  of  cell  which  determined  DTVF 

JV 

145 

J  value  of  cell  which  determined  DTVF 
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Table  I 


STORAGE  LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 
USED  IN  HECTIC  (Continued) 


Variable  name 


Loc 


Definition 


IU 

146 

I  value  of  cell  which  determined  DTUF 

JU 

147 

J  value  of  cell  which  determined  DTUF 

DTVF 

148 

Axial  free  surface  velocity  time  control 

DTUF 

149 

Radial  free  surface  velocity  time  control 

Ell  * 

150 

Constant  used  to  compute  laser  absorp^ 
tion  coefficient 

X(I) 

152 

Radial  coordinate,  measured  to  outer 
boundary  of  cell 

FLEFT  (I) 

205 

Radial  momentum  flux  across  left 
boundary  in  PH2 

UL(I) 

205 

Weighted  velocity  on  left  boundary  of 
cell  in  PHI 

YAMC  (I) 

305 

Axial  momentum  fiux  across  left  boundary 
in  PH2 

GAMC  (I) 

405 

Mass  flux  across  left  boundary  in  PH2 

PL  (I) 

405 

Pressure  on  left  side  of  cell  in  PHI 

PR  (I) 

405 

Temporary  storage  in  INPUT  and  EDIT 

SIGC  (I) 

505 

Total  specific  energy  flux  across  left 
boundary  in  PH2 

THETA  (I) 

605 

Cell  temperature 

Y  (I) 

1806 

Axial  coordinate,  measured  to  upper 
boundary  of  cell 

AIX  (I) 

1907 

Specific  internal  energy  of  cell 

AMX  (I) 

3109 

Mass  in  cell 

DX  (I) 

4315 

Radial  cell  width 

DY  (I) 

4367 

Axial  cell  width 

P  (I) 

4472 

Cell  pressure 

PIDTS 

5674 

Working  storage  in  PHI  and  PH2 
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Table  I 


STORAGE  LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 
USED  IN  HECTIC  (Continued) 


Variable  name 

Loc 

Definition 

PRR 

5676 

Average  of  cell  pressure  and  pressure  in 
zone  on  the  right 

RC 

5933 

X  coordinate  of  cell  center 

RH0  (I) 

5935 

Cell  density 

RR 

7136 

X  coordinate  of  center  of  cell  on  the 
right 

SIG 

7137 

Working  storage  in  CDT 

TAU  (I) 

7190 

2 

Area  of  ring  I:  ?r(xi+1  -  Xj  ' 

TAUDTS 

7242 

TAU  (I)  *  DT  in  PHI 

U  (I) 

7244 

X-component  of  cell  velocity 

URR 

8445 

Weighted  average  of  cell  velocity  U(I) 
and  ceil  on  right 

UT 

8446 

Recycle  variable  in  PHI  (-1,  0,  or  +  1) 

UU 

8447 

New  At  for  recycling  in  PHI 

UVMAX 

8450 

(Max.  U  or  V)/(Min.Ax  or  Ay)  in  CDT 

V  (I) 

8451 

Y-  component  of  cell  velocity 

VABOVE 

9651 

Velocity  V  in  cell  above 

VBL0 

9652 

Velocity  V  in  cell  below 

VEL 

9653 

Tag  in  PHI  to  note  pass  number 

W2  (I) 

9660 

Laser  radiation  flux  arriving  at 
solid-vapor  interface 

WS 

9761 

Working  storage 

WSA 

9762 

Working  storage 

WSB 

9763 

Working  storage 

I 

9774 

Radial  index 

IWSA  * 

9779 

Generator  input:  last  card  if  =  +1 

V 

I WSB  * 

9780 

Generator  input:  x,  Ax  data  if  0;  y,  Ay 
data  if  1 

32 
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Variable  name 

J 

K 

KP 

L 

M 

MZ 

N 

NK 

NK1 

NR 

SOLID  (I) 
TEMP  (I) 
FIOUT  (I) 
CAP  (I) 

KFIT  (I) 

IS  END,  ISL 
IGOTO 
HEAD  (I) 


Vol  II 
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Table  I 


LOCATIONS  AND  DEFINITIONS  OF  VARIABLES 


USED  IN  HECTIC  (Continued) 


/! 


Loc  ..  Definition 

•>  ,c  *•■  I-,  f  ■-  •  a vi*. 

9832  Axial  index 

.  \  • ft  ;  •  ■  J.  >r  r--  ••  5  •?  ;  •  ,  ,-j-  .  t  -M  t  ...  ^ 

‘  •  f  * 

9836  Cell  index,  a  composite  of  I  and  J 

9838  K  +IMAX 

f  •-  !  7;J~  .!  v '  ,;->h  >/:n  •  o<  '•  1 

9841  Running  index  in  certain  loops 

9842  Running  index  in  certain  loops 

9848  Number  of  words  in  the  Z  array  (150) 

9849  Temporary  storage  for  zone  index 

9850  Working  storage 

9852  Working  storage 

9854  Number  of  radiation  cycles  per  hydro¬ 

cycle  (currently  inoperative) 


9905  See  Table  II 

10305  Temporary  storage 

10317  Source  energy  flux  leaving  cell 

11517  Used  for  both  K  jraBpr  and  Z 

12717  Array  for  packed  flags 

13917  Indicator  for  last  cycle 

13918  Indicator  in  EDIT  for  type  of  print  out 

13919  Storage  for  problem  identification 

heading 
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N 

1 


2 

3 

4 


5 

6 

7 

8 


9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


Table  II 

LAYOUT  OF  VARIABLES  STORED  IN  SOLID 

Definition 


z,  an  effective  conduction  length  for  calculating  the 
conductive  heat  loss  at  the  surface 


^Syi  net  heating  rate  at  the  surface 
EC.  the  total  heat  loss  into  the  interior 


<PB,  the  incident  laser  energy  delivered  per  unit  area 
up  to  time  t 


Not  used 

m,  the  mass  ablation  rate 
m,  the  mass  ablated  per  unit  area 


<Pe,  surf  .  the  incident  laser  energy  delivered  to  the 
surface  per  unit  area  up  to  time  t 


Not  used 


Pv.  the  vapor  pressure  at  the  interface 


Ptest  ^8ee  di®cussion  of  boiling) 

PQ,  the  pressure  on  the  solid  side  of  the  interface 
I,  the  impulse  per  unit  area,  found  by  integrating  PQ 
Mass  ablated  on  this  cycle 

Vj,  the  velocity  of  injection  of  vaporized  matter 
Not  used 
Not  used 
Not  used 
Not  used 
Not  used 


CROSS  REFERENCE  OF  HECTIC  VARIABLES  (Continued) 


Table  in 

CROSS  REFERENCE  OF  HECTIC  VARIABLES  (Continued) 


CROSS  REFERENCE  OF  HECTIC  VARIABLES  (Continued) 


CROSS  REFERENCE  OF  HECTIC  VARIABLES  (Continued) 


CROSS  REFERENCE  OF  HECTIC  VARIABLES  (Continued) 
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2.  5.  APPENDIX:  LISTING  OF  HECTIC 


C  HECTIC  PROGRAM  MOOIHEO  7/30/66 

cm******************************************************************* 

(;**************•**«**•****••*«***••••••**•**•«•••••**••••••••*•••••••* 

C  MAIN  FOR  INTER  COUE 

C  NOTE  — I  MATERIAL  (X>  ONLY 


CALL  INPUT 


CALCULATES  TIME  STEP  ANU  PRESSURES 
10  C»uL  CUV 

SOURCE  ROUTINE 
CALL  SCRC 
CALL  U01L 

VELOCITY  ANO  ENERGY  CHANGE  UUE  TO  WORK  TERMS*  ONLY 
20  CALL  PHI 


VELOCITY  ANU  ENERGY  CHANGES  DUE  TO  MASS  TRANSPORT 
CALL  PH2 
CALL  EDIT 
GO  TO  14 


6 


-  7  ' 


* 


?  * 
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I  FoH  CAROS r  CARDS/FJ 
SUBROUTINE  CAHOS 

COMMON  1 0N  T AULE  ( }  J » £ AHD  < 7  >  *  *■  ABLE  ( 1 D  C AHO  ( 1 8  > 

EQUIVALENCE  ( TA13LE  'l)r  L  ABLE  (ID 
VHITL  (brlO) 

1  IF (CA^<* >  * »?>  rCAHD(17)  rCAHO(lS) 
IMItNUrtUrV)  60  TO  lb 

IF(lAUS(NUM*PC-4) ,6T.3)  60  TO  20 
00  L  1=1 rNUMNPC 
J=LOC*I  - 1 
IF(ItN0-2)2rSr2 
S  LAULL(d)=IFIX(CAHO(l) ) 

60  TO  4 

2  TAULE(J)=CAHO(I) 

4  CONTINUE 

IF(lENU-l)lr3rl 

3  HETUHN 

15  HEAD (Sr lb) <CAHO( I ) r 1=1 rib) 

4HITE (br 17) (CAHD(I)rI=» rib) 

60  TO  1 

20  NRITE(br21> 

CALL  EXIT 

FORMATS 

10  FOHMAT(20H1HECTIC  INPUT  CAHOS///) 

11  FORMATdl  r  ISr  II r UP7E9«4r 2A5) 

12  FORMAT (1H  2AbrI4rI7rI3rlP7E14.6> 

16  FORMAT (16AS) 

17  FOHMAT(lXrlbAS) 

21  KORMAT(20Xr24H  THE  ABOVE  CARO  IN  ERNOH ) 

END 


CAH00010 

CARD0030 

CAHOOOSO 

CAR00070 


CAROOlOO 

CAKU0110 

CAR00120 

CAR00130 

CAR00140 

CARU0150 

CARDOlbO 

CAR00170 

CAROOlOO 


CAR00190 


CARU0230 
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W1  I- OH  INPUI.  lirUI/IJ 
sudhouiini.  input 
c 

5  O  I  M  t  N  !,  |  o  N 


c 

c 

c 


1.1 1  Mi  MS  I  >N 

^V,.3rU?!’  V(lc-U0)»  AMX(l200),  AIX(  1211(1), 

£.  rilt-TA  ( 12UU  )  *  l(IIO(  12UU)  »  F  lOllf  (  1  <2  U  U  )  ,  CAIMIPIIO), 

3PUL (2bb)  rlWl(SU)  rWel(tiU)  pW  it  !>ll )  ,  IA||LM(!»II)  . 

A,,j3,»  XX  ( 54 )  ,  t)Y(  11)11),  mon), 

>>TAU(lb),  AMK(lb),  PM  15),  OK (lb).  /(lbO), 

(*L(2UU) ,  PM2UU)  ,  Dl.  ( ClIU )  ,  1)11(2011) » 

7FLEFT ( 1UU)  »  YAMC  (100)  ,Slt.C  ( 100  >  »l>AMC(  101))  , 

80(50)  ,bOLIl)(4l)ll)  ,  ILMI’1 12)  ,111  AIK  12) 


I )?()()) » 
i  r  (i;,(mii  , 

V  V  ( 1 1)  I ) , 
t/(lbU)» 


COMMON 

2 

,XX 

,UI< 

,PK 

COMMON 

All) 

.  A1X 

,  AM 

,  AMO 

COMMON 

l.lb 

JiiOUNCl 

,  IIUXN 

,  1IDVK 

COMMON 

UY 

,E 

»F0 

»FS 

COMMON 

P 

.PAHoVb 

,PHLO 

.PIDfb 

COMMON 

PUL 

,UUT 

,  RC 

,Hi:.2 

COMMON 

KK,bi(),ouuobL, Switch 

,  TAIILM,  Ti 

COMMON 

TAUUTS 

,  TAUUTX 

,  U 

.UK 

COMMON 

UU 

,UUU 

,UTEK 

.UVMAX 

COMMON 

VULO 

,  vel 

,  VK 

,  VT 

COMMON 

VVAbOV 

» VVULO 

»W2 

,  W3 

COMMON 

MSA 

,  WSH 

,wsc 

,  XL 

Common 

XH 

.  YL 

.  YLW 

,  YN 

COMMON 

1 

.11 

.IN 

,  IK 

COMMON 

'  lWbl) 

»iwsc 

,1W1 

,  J 

COMMON 

JK 

,K 

,KN 

,KP 

COMMON 

U 

,M 

i'MA 

,  Mb) 

COMMON 

ME 

,M2 

,N 

,NK 

COMMON 

140 

,  NR 

,  G 

, SOL  10 

COMMON 

F10UI 

.CAP 

,KFIT 

,  I  SEND 

•  Till  t A 
»  AMX 
»(>VK 
»FX 

>PPAIU)\/ 

.0110 

I) 

.OHM 

.V 

»VTbF 

.WPS 

.xtr 

.YU 

.iws 

,JN 

»KR 

.MC 

.NKMAX 
.TEMP 
.  IGOTo 


.  YY 
.  Aid  A 
.  I IX 
.OUT 
.PHI? 
»ia. 

.IIT 

, VAMOVl 

»vv 
•  ws 
.  XN 
./MAX 
.  IWSA 
.  JP 
.KHM 
.MU 
.NK1 

.HEAD 


L  0  U  1  V  A 
ULulUI  VALENCE  (/.I/.PHOB). 

l(/(4)  .PRINTS) .  (/(b).(  HINTL)  . 

2(2(8). PlUY).  (2(9). TM/), 

3(2(12), bAMX),  (2(13). tTH). 

4 ( 2 ( lb) . TMU2) .  (2(17). TMX2). 

b ( 2 ( 20 ) . T YMAX) .  (2(21). AMOM). 

6(2(24) .UM1N) .  (2 (2b) »FEF) . 

7(2(20) »NPK) »  (2(29), NPRI), 

8(2(32) »NRC) »  (2(33). IMAX). 

9(2 (3b) . JMAXA) .  (2(37) .KMAX) . 

OenUI VALENCE  (2<4U).NU). 

1(2(43) .NOD) .  (2(44). NOPH). 

2(2(47). 11),  (2(40), 12), 

3(2(51), Nl),  ( 2 ( b2 ) , N2 ) , 

4(2(5b) »Nb) ,  (2(bb),N6)» 

b(2(59) »N9) ,  ( 2 ( bU ) , N10 ) , 

6(2(63) .THAU) »  (2(b4) ,XNHo> , 

7(2(67) .HAOEH) .  (2(b0) .KADET) , 

0(2(71). Rt2FCT),  (2( 72) .HSToP) , 

9 ( 2 ( 7b ) , T 020NL ) »  (2(70), ECK). 

OEuUI VALENCE  (2(79), X2)» 

1(2(82) .CAULK) ,  ( 2 (03) » V1SC ) » 

2(2 (8b)  »WSbl))  ,  (2(07)  »WS6X) » 

3(2(90), bl),  (2(91), S2)» 

4(2(94), bb),  (2(9b),Sb)» 

b(2(9o)»b9),  (2(99), S10) 

ULUUI VALENCE  ( 2 ( 1U0) » IIVU) » 


L  E  N  C  b 
(2(2). CYCLE).  (2(3), UT), 

(2(b) .UUMPT7) ,  (2(7) .CSTOP) , 

(Z(lO).SCYCLr).  (2(11) .SPROd) , 
(2(14), FFA),  (2(15). FPU), 

(2(18), XMAX),  (2(19), TXMAX) , 

(2(22), AMXM),  (2(23), DNN). 

(2(26) »DTNA) »  (2(27) ,CVIS) , 

(2(30), NC),  (2(31), NPC), 

(2(34) ,IMAXA) ,  <  2 ( 35) .UMAX) , 

(Z( 38) .KMAXA) ,  (2(39), UMAX) 

(2(41) ,KUT ) »  ( Z ( 4  2 ) , IXMAX; , 

(2(45) , NIMAX ) »  (2(46) .NJMAX) , 

(2(49), 13),  (2(50), 14), 

(2(53), N3),  (7(54), K4)» 

(2(b7) ,N7) »  (2(58), N8), 

(2(61), Nil),  (2(62), NRM), 

(2(65), SN),  (2(66), DXN), 

(2(69) .RAUEH) »  (2(70) .OTKAU) , 

(2(73)  .SHELL) »  (2(74)  .IHJOIJNU) . 

(2(77) , S80UNO) ,  (2(78), XI) 

(2(00) » Yl) ,  (2(81), Y2), 

(2(04), T),  (2(85) ,GMAX) , 

(2(80) »GMAUR) »  (2(89' .GMAXR ) , 

(2(92), S3),  (2(93), 54), 

(2(96), S7),  (2(97), SB), 


(2(101), IICU),  (7(102), CH). 
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1(2(1U3>.5VS>.  (2(  104) .ATOM)  .  (Z(lOb).CV).  (Z(  106)  »8V)  > 

2(2(107) .SUMFL ) .  ( i ( 108) .UE FA) *  (Z( 109) . ALCO) .  (Z ( 1 10) . ANN) . 

•1(2(111) .E2LK0) .  (Z( 112) »PW) *  (2( 113) >CAPS) »  ( Z( 1 19) »HNU) » 

3<2(Ilb).COE>»  (2(116)*  SCR) >  (Zi 117) . !SR) »  ( 2 ( 1 1 A ) » SCUR ) » 

4(2(119). AHN).  (Z( 120) .OTH)  .  (2(  121) » XH) »  (Z(122).JH>. 

b(2(l23)»UfC>.  (2(124) .  IC ) »  ( 2 ( 12S ) » JC  > »  (2(126) *RFT) » 

X(Z( 127) .CUUT) .  (2(128) »MCP) »  (Z(129)»HH>.  (Z( 130) »CO> » 

b(2(131).Jl>»  (Z(132).J2>*  (Z(133).J3)»  (Z< 134) » J4) » 

7(2<i3b>  J5>»  (ZI136) .  J6) »  (Z( 138) .SVMAX) . 

8(2(139) .FRCUTC) 

OEOUlVALLNCE  ( Z ( 1 40 ) .  VAPE )  .  ( Z(  1->1 )  .HADE )  *  (Z( 142) .CNUE) . 

1(2(143). SCKE>.  ( Z (  44). IV).  (ZI145).JV)»  (Z(146).1U). 

2(2(147). JU).  (Z( 148) .DTVF ) .  (Z( 143> .DTUF ) »  (Z( 150) .Ell) 

OEQUI VALENCE  ( XX(2> . X(  1 ) ) »  (UR .UL.FLEF T ) .  (UR(lOO).YAMC). 

KPH(lUO).SIGC).  (PR.PL.GAMC).  (DKE. THETA).  (UR. TAB). 

2 (UK ( lb) » AMK ) .  (UK ( 31 ) .PK) .  (UR(46).QK>.  (YT(P).Y(i)) 

COMMON 

lSENU  SET  EQUAL  10  1  ON  THE  FIRST  CYCLE 

IbENU-l 


C  *N7*  EITHER  SET  10  *10*  (OLU  DUMP  TAPE)  OH 


C  GET  TO  *11*  (NEW  UUMP  TAPE). 

N7=10 

C  1NPU1030 

KtAD ( b. 8004 )  (HEAD! I) .1-1.12) 

WHITE ( b.OOOb)  (HEAUI I ) . 1=1 . 12) 

CALL  CAKUS  INPU1060 

IF (SCYCLE.GT .0. )  GO  TO  1000 
CALL  SETUP 

C  1NPU15I0 

C  INPU1S20 

C****  HEAD  TAPE  ************************************************ INPU1540 

C  INPU1530 


1000  M2-lb0 

KEWINU  10 

1004  KEAD(lO)  WS. CYCLE. PKOU 

IF (WS-bSb.) 1004. 100b. 1004 
100b  Ir i SFKOU-PKOB ) 9902 .1006. 9902 
1006  IF(SCYCLE-CYCLE)9903. 1023. 1004 
1023  KEAD(lO) (2(1). 1=1. M2) 

HEAD! 10)  (U(I).V(I) . AMX (I).AIX(I).P(1>. THETA ( I ) . 
i  nHO(  I  i  .FIOUT  (I).CAP(D.KFIT(I) . 1=1. KMAXA) 


KEAD(.O)  X(0).(X(I).TAU(I). 1=1.1 MAX) 

HEAD (AO)  (Y(I)  .1=0.  JMAX) 

1024  IF(CYCLE)9904. 1040.1025 

1025  HEAD (10) (W2(I).I=1.50) 

KEAD( 10) ( SOLID! I ) . 1=1.400) 

C****  ENU  OF  HEAD  TAPE  ♦♦♦♦♦♦♦•♦♦♦•♦♦♦♦••♦♦•♦♦..♦♦•♦••♦•♦♦♦♦•♦♦••••♦•♦♦♦♦INPUfOOO 

C  INPU20I0 

C  INPU2020 

C  KEAU  IN  REMAINING  INPUT  CAKDS  INPU1110 

1040  CALL  CAKUS 

C  INPU2030 

C  GENERATE  UX  AND  DY  INPU1330 

UO  50  1=1. IMAX 

50  UX(I)=X(I)-X(I-1)  1NPU1350 

UO  5b  J=1 . JMAX  1NPU1360 

55  UY(J)=Y(J)-Y(J-1)  INPU1370 

5b  IF (SCYCLE)9905.60.b7 
57  WKITE(6.58)  NC 


58  FORMAT (29H0  PKOULEM  RESTART  FROM  CYCLE. 110) 


C 


C 

C 

C 

C 

C 

C 
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9902 

9903 

9904 

990b 

9999 


C 

C 

C 


bl=0.0 

MtTURN 

LHKOR 

il=3.lU0b 
00  TO  9999 
01=3. lOUd 
00  TO  9999 
01:3,1024 
00  TO  9999 
S»l=3,0Ubo 
CALL  toll 


0004 

000b 


FORMAT:* 
FORMAT  (12A6) 
FORMAT ( 1H1 # 12A6) 
tNO 


IMPU2200 

IUPU2210 

INPU2200 

INPU2270 

INPU2290 


INPU2390 

INPU2470 

INPU2480 


INPU2530 


ci  ci  ci  ci  ci 
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ul 

c 

c 

c 


c 

c 

c 

c 


FOK  EUIf,  tO  I  TAJ 
SUURoUT INE  to IT 

0  I  M  L  N  1  o  M 


EOITOOIO 


U.1MLNSION 

Vi  ^  .  va<!00,'  AHX ( 1200 )  i  AIX  ( 1200)  , 
JmM P»OUT(1200)*  CAPU200), 
3PULI255) , Itol i50 ) ,W2(50) ,N3(50 ) »  TA'JLHI'jO  )  t 
4DXI52) r  X(53)»  XX (54),  DY(iUO), 

5TAUI 15) ,  AMK ( 15)  ,  PM  15),  OK (15), 

blAU(52),  PL (200) »  PM20U) ,  UL(2Q0)» 

7FIJtFT(lU0)  i  TAMC(lUO)  ,SIOC(l00)  ,OAMC(100) , 
fib ( 50 ) , 50LI0( 400 ) »  TEMP ( 12) ,HtA0(12) 


V ( 100 ) , 
2(150), 
UK (200) 


P( 1200) , 

KT ITI120U), 

TT(lOl), 

12(150), 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


0 

M 

M 

0 

N 

2 

,XX 

,UI< 

,PR 

•THETA 

,  YY 

AIL) 

,  AIX 

,  AM 

,  AMO 

,  AMX 

,  A 

UlO 

, 8 OUNCE 

»DUXN 

•DDVK* 

,DVK 

•  DX 

UY 

,E 

,FU 

,FS 

»FX 

•  OUT 

P 

»P ABOVE 

,PBLO 

•PIDTS 

•PPAHOV 

•  PKR 

PUL 

•  GOT 

,RC 

,KE2 

,RHO 

•  KL 

KK,51b,U000FL, 

SWITCH 

,tahlm,tau 

TAUUT5 

,TAUoTX 

,U 

,UI< 

,  URR 

»UT 

UU 

,uuu 

,UTEF 

, UVMAX 

,V 

,V ABOVE 

VBLO 

,  VEL 

,VK 

,  VT 

,  VTEF 

» vv 

VVABOV 

, VVBLO 

,M2 

,W3 

,WPS 

•  MS 

MSA 

,WSB 

»WSC 

,  XL 

,XLF 

•  XN 

XK 

,  YL 

,  YLW 

,  YN 

,  YU 

,  ZMAX 

1 

,  1 1 

,  IN 

,  IR 

•  IMS 

•  I  MSA 

IMSU 

,  IMSC 

,  I  Ml 

,  J 

,  JN 

,JP 

JK 

,K 

,KN 

»KP 

,KR 

,KRM 

L 

,M 

,MA 

,  MB 

,MC 

,MO 

ME 

,M2 

,N 

,NK 

i NKMAX 

,NK1 

NO 

,NH 

,6 

, SOLID 

•  TEMP 

F IOUT 

,CAP 

,KFIT 

,  ISENO 

,  I GOTO 

•  HEAD 

U 

I  V 

A  L 

E  N 

C  E 

EDIT0990 


EDI T0920 


UtOU I VALENCE 
1(2(4), PKINTS), 
2(2(8), PIOY), 
3(2(12), OAMX), 
4(2(lb),TMU2), 
5(2(20), TVMAX), 
6(2(24), UMIN), 
7(2(28), NPH), 
8(2(32), NHC), 

9 (2 (3b) , JMAXA) , 
OEUUI VALENCE 
1(2(43), NOO), 
2(2(47) , 11) • 
3(2(51 ), Nil , 
4(2(55), N5), 
5(2(59), N9), 
b(2(63) , TKAO) , 
7(2(67), KAOEK), 
0(2(71), HEZFCT), 
9(2(75), T020NE), 
OEOU I VALENCE 
1 (2(82) ,CAULN) , 


(2, 12,PH0B) , 
(2(5) ipKINTL) , 
(2(9), TM2), 
(2(13), ETH), 
(2(17), TMX2), 
(2(21), AMOM), 
(2(25), FEF), 
(2(29), NPRI), 
(2(33), IMAX), 
(2(37), KMAX), 
(2(40) , NO) , 
(2(44), NOPK), 
(2(48), 12), 
(2(52), N2), 
(2(56) ,N6) , 

( 2 (bO ) , N10) , 

( 2(b4) , XNHU) , 
(2(bH) .h'Ot I ) , 
(2(72) »RSTOP) , 
(2(76), ECK), 
(2(79), *2), 
(2(83),  .C), 


(2(2), CYCLE), 
(2(6) »DUMPT7) , 
(2(10) ,SCYCLE) , 
(2(14), FFA), 
(2(18), XMAX), 
(2(22), AMXM), 
(2(26), OTNA), 
(2(30), NC), 
(2(34), 1MAXA) , 
(2(38) »KMAXA) , 
(2(41), KOI), 
(2(45) ,NlMAX) , 
(2(49), 13), 
(2(53), N3)» 
(2(57), N7)» 
(2(61), Nil), 
(2(65), SN), 
(2(69)  ,RA0EI1) , 
(2(73), SHELL), 
(2(77) , SBOUNO) , 
(2(80), Tl), 
(2(84), T), 


(2(3), OT), 
(2(7) »CSTOP) , 
(2(11) ,SPKOB) , 
(2(15), FFB), 
(2(19) ,TXMAX) , 
(2(23), ONN), 
(2(27), CVIS), 
«2<31), NPC), 
(2(35), JMAX), 
(2(39), NMAX) 
(2(42) , XXMAX ) , 
(2(46) »NJMAX) , 
(2(50), 14), 

( Z ( 54 ) , N4 ) , 
(2(58), N6), 
(2(62), NRM), 
(2(66), OXN), 
(2(70) ,DTNAO) , 

( 2  <  74 ) , HBOUNO) , 
(2(78), XI) 
(2(81), Y2), 
(2(85) ,GMAX) , 


50 


orinonnonnn  nn 
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c 


2(z<ao).i*so0). 
3(Z(  90>.sn. 
4(2(94). Sb). 
b(Z(9u).S9). 


_  ,/V 


(z<o?).«sga>. 
(Z(9i).S2). 
(Z(95).Sb>. 
(2(99). 610  ) 


(2(06) .GMAOK) . 
(2(92). S3). 
(2(96) »S7> » 


(2(09) . GMAXK) • 
(2(93). S4)» 
(2(97). SB). 


UtQUI VALLNCt 
1(2(103). SVS). 
2(2(107) . SUMFt) . 
3(2(111)  .fc.2fc.K0) . 
3(Z(llb) .Cot) . 
4(2(119). AIIN). 
6(2(123). UTC). 
X(2(127) »CUUT) • 
6(2(131). Jl). 
7(2( 13b) . Jb) . 
6(2(139) .FKCUTU 
CLUUIVALENCE 
1(2(143). SCHt). 
2(2(147). JU). 


(Z(  100)  .HVli)  • 
(2(104). ATOM). 
(2(108). UETA). 
(2(112) »PW) . 
(2(116). SCN). 
(2(120). UTH). 
(2(124) .10) . 
(2(120) »HCP) . 
<2< 132) • J2) . 
(2( 136) . J6) . 

(2(140). VAPt). 
(2(144). IV). 
(21148) .UTVF). 


(2(101) »HCHI . 
(2( 10b) .CV)» 
(21109). ALCO). 
(Zi 113) jCAPS) » 
(2(117). lbK), 
(2(121). IH). 
(2( 12b) . JC ) . 
(2(129). HH). 
(2(133). J3). 


(2(102). CM). 
(2(106). GV>» 
(2(110). ANN). 
(2(114). HNU). 
(2(118). SC DR). 
(2(122) • JH) . 
(2(126). KFT). 
(2(130). CO). 
(2(134). J4). 
(2(138) »S /MAX) . 


(2(141). RADt).  (2(142),CNUE)» 
(2(145). JV).  (2(146)  1U). 

(2(149). OTUF).  (2(150). tin 


Ob.UUlVALt.NCE.  (  XX  (2)  .  X(  1 )  ) , 

KPK(lOO).SlbC).  (PR.PL.GAMC) . 
2 (UK (16) .AMK) »  (UH(31).PK). 


(UR.ULi'FLLFT) »  (UR(100)  .TAMC) . 

(DKE.  THETA)’.  (UR.  TAM). 

( UK( 46) .QK ) .  (YY(2).Y(1)) 


IbENU  =  1.  FIRST  CYC Lb 
1SENU  s  2.  INTERMEDIATE  CYCLES 
IbENU  =  3.  LAST  CYCLE 


E  U  1  T 

1G0T0S1 

60  To(bOOO.lOl.lUl). 1SLNU 
101  1F(S1.6T.0.)  60  TO  110 
106  1F(CYCLE-CSTOP)115.109.11S 

109  S1S4.0106 

110  1SENU=3 

C  ALL  PRINTS  PLUS  WRITE  ON  BINARY  TAPE 
60  TO  6000 

lib  IF (ANOU( CYCLE. PRINTS) )118. 117.118 
C  SHORT  PRINTS  ONLY 
117  1G0T0=2 
60  TO  6000 

116  IF(AM0U(CVCLE.PK1NTL) ) 120.119.120 
C  LONG  PRINTS  ONLY 

119  100T0-3 

60  To  SOUU 

120  IF( AMOD (CYCLE. UUMPT7) > 126.121.126 

121  1F(160T0.E0.1)  GO  TO  6000 
160T0S1 

GO  TO  1 

125  1FUSENU.EQ.3)  CALL  SPRINT 

126  1F(AMS(LCK) .GT.DM1N)  GO  TO  9901 
140  Kb TURN 


C****  SUBROUTINE  WTA°E 
C  DUMP  ON  TAPE  N7 

c  .  .  .  IF  UUMPT7  IS  NEGATIVE  SUPPRESS  ANT  WRITING 

1  IF( ISENU.LQ.l. ANU.N7.LQ.10)  60  TO  126 
IF ( DUMPT7 ) 30 . 3 . 3 
3  WS=5bb.O 


********«! 
ON  TAPE  7 


ED1T1000 


EDIT1030 
ED1TU00 
EDI T1110 
EOIT1120 


EDIT1500 
E01T1510 
■EDIT 1520 
EDIT 1530 
ED1T1540 

ED1T1550 
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*HlTt<N7)  W5#CYCLL#PH0I) 

WHI1LIN7)I2II)*I=1*M2) 

KHITtlNH  (U(I)  #VII)  <AMXII)  •  AIX II) »P< I ) » THETA  1 1 ) ' 
i  HHOII).MOUT(I).CAP<I).KFir<I)#I  =  l*KMAXA) 
khitlin/i  x(u)»u(h#tmmi)»i=i»imax) 
«KlTt<N7)IVm»I=8>JMAX) 

KHITLIN7)  (NtMIhUNbO) 
mllTLlN/)  ISOLIDII  )  »  UI#400) 

<las6bbiU 

4H I TL I N7 )  *S#rfS*wS 
*hitl  Io#mI20)nc 

JO  00  TO  125 

♦  ♦♦*  tNU  OF  rfTAPt  SUbHOUTIIJL  *********************** 


♦♦**  SUbRuUTlNL  5  P  ***♦♦«♦♦♦«*♦♦**♦♦*♦**♦**♦♦**♦**********♦*♦****♦ 

6000  UK- 1 2 

6010  00  6012  1  =  1 r  I  8 

6012  PH<1)=0.0 

00  6020  K=2#KMAX 
«;>U=IUIK)**2  +  VIK)**2)/2.0 
6019  IF  I AMX IK ) ) 9902 #6028#6020 
oU20  I-NKI 
6026  i<S=AMXC.  1 

PH  1 1 )  =  PHfl)+AIXIK)*WS 
PH ( 2 )  =  PI<!2)+*Sb*WS 
PHI 3)  =  PH ( 2) +PR ( 1 ) 
oU20  CONTlNUt 

«»SA=IETH-PHI3)  )/tTM 
ttK  = ( KSA-DNN) /FLOAT (NPC ) 

UNN=t»SA 

NPC=0 

KKITL(6.0ll6)PK0b*NC.T.0T  *OTH*OTC #2 1148) » L ( 149) • IH* JH» !C t JC » 
1 U ( 194) ,121145)* 1/(196) ,12 (147) 

«(RITLlb*6902)  'H 1 1 ) « PH  1 2 )  *  PR  1 3)  , V APE, HADE, CNDE,SCRE ’ETH,ECK 
PRII)=0. 


EUiri7J0 

£.01  T 1750 

'V  1T1770 
E0IT1780 
EDIT1790 
E01T1800 
EDIT1820 
EUIT1950 
EDIT 1960 
E01T2020 
EUIT175P 

E0IT2090 
EDI T2 160 


EDI T2230 


EDIT2340 
EDI T2350 


sen 

SOLID  I J  +  4 ) 
SCH 

SOLID! J+4) 
o030 


PHI2)=0. 

PHI  3) =0 • 

PH(4)=0.0  EDIT17ao 

AHITt (6*6904) 

00  6040  1=1. ISH 

J=l I-l ) *20*1 
TEMPI l'sSOLIUI J+12)/ 

TtMPI2)=50LIUI J+13)/ 

T tMP 1 3 1 =SOL 10 1 J+6 )  / 

TEMPI4)=S0LIUIJ+7)  / 

IF!  SCH.NtrO.)  GO  TO 
TtMP<l)=0. 

TEMPI3)=0. 

6030  CONTINUE 

PH II)  =  PHI 1)  *  TAUI I ) *SOLID< J+6) 

PH  12)  =  PH  12)  ♦  TAUI I ) *SOLID( J+7 ) 

PHI  3)  =  PHI  3)  ♦  T  AU 1 1 ) *  SOL I D I J+l 2 ) 

PH  14)  =  PKI4)  ♦  TAUI I ) *SOLID( J+13) 

PH  1 5)  =  PH 1 5)  *  TAUI 1 ) *W2( I ) 

PR  16)  =  PHlb)  ♦  T  AU 1 1 ) *  SOL ID I J+8 ) 

PH < 7)  =  PH ( 7 )  *  TAUI 1 )*SOLID( J+2) 

PHI 8)  =  PHlb)  *  TAUI 1 ) *TEMPI 1) 

PRI9)  =  PHI9)  *  TAUI D+TEMPI2) 

PHI 10)=  PHI  10)  *  TAUI I )* TEMPI 3) 

PHI  11)=  PHI 11 )  +  TAUI 1 ) *TEMP(4) 

4RlTt<6,690b) I , SOLID! J+b) , SOL ID I J+7) , SOLID! J*12) , SOLID! J+13) *  M2 1 1 ) 

1, SOLID! J+B) , SOL ID  I J+2) *  TEMPI 1) » TEMPI 2) , TtMPI 3) »TEMPl4) 

6040  CONTINUE 

MHlTE(blb908) I PR (I), 1=1, 11) 
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(.*♦♦♦  LNU  UF  S  I*  'jl/ilHOUl  INI  **************  i*tt***  *******  it  ♦  ♦♦!  1)1  r?92() 

C  LOIT2930 

t  EDI  12940 

1000  CONTINUE 


WKlTE(b*dllolPI<0il*NC*  l*UT  *UTll*DTC  * 1  ( 140)  */(  149)  *  1H. JH.  1C*  JC  * 
U2(144)*12U4b)*l2(14ti).I2(14  7) 

JMAX-JMA* 

white  Ui»itJ07)xi»x/» amax» ri r y?» ruMAxi 

M=1 

IK  JMAX-b2)  1034*  103o*103b 
1034  M=lAUKbl-JMAX)/2 
103b  DO  1040  1  =  1  *M 
WHITE  (0*0300) 

1040  CONTINUE 
1044  J=JMAX 
1100  K=( J~1 ) ♦ IMAX* 1 
110b  00  UUO  1  =  1  *  IMAX 
K=KU 

112b  PH  (  I )  =1)1 

1U0  IF  ( J-Jb“l )  113b* 1132* 1130 
11. '2  1F(I-I1-1)1140*1134*1134 
1134  IF (1-12-1)1144 *11 44 *11 3b 
113b  1F(I-Il-I)1140*113b*1140 
113b  IF ( J- Jb) 1140*1140*1144 
1140  1F(I-12-I)llb0.1142*llb0 
1142  IF« J-Jb) llbO. 1150* 1144 
1144  PH ( I ) =2M  . 

00  TO  llbO 

C  TEbT  FOK  X  PAKT1CLL 

llbO  IF ( AMX (K ) ) 9903* 1166*1100 
llbO  PH ( I ) =2H  X 
00  TO  llbO 
116b  PK( I ) =2H 
llbO  CONTINUE 

1200  IF ( MOD ( J* b ) 11210*1204*1210 

1204  IF (OY ( J) -UY ( J-l ) ) 120b* 120b* 1206 

1206  WHITE  (b*B211)DY(J) * J* (PH (I) *1=1* IHAX) 

00  To  1224 

120b  WHITE  (b.8201)J*(PH(I)*I=l.IMAX) 

00  TO  1224 

1210  IF (DY(J)-UY (J-l) 11212.1214*1212 
1212  WHITE  (b*b222)0Y (J)*(PR(I)*i=l*IMAX) 

00  TO  1224 

1214  WHITE  (6.6202) (PH(I) .1=1. IMAX) 

1224  J=J-1 

1226  IF(J) 1230.1230* 1100 
Ull)  PH  ( I )  =2H  - 

WHITE  (b*6201 )J*(PH(1)*I=1*IMAX) 

WHITE  (6.8302) < I  *  1=0. 1MAX*5) 

1240  00  TO(b0C0*llb*9906) * IGOTO 

C***w  END  OF  PLOT  SUttHOUTINt  *♦****•***•*•••**••**•**•****••**♦••*< 

C 

C 

C**w*  bUbROUTINE  L  P  ♦*******♦*♦*••****♦*••*•**••*••***••••*********< 
bOOO  CONTINUE 

WHITE (6*bllb)PK0b*NC*T*UT  *DTH*DTC*2< 148) *21 149) . IH* JH* IC* JC* 
112(144). 12 ( 14b) *12(146). 12(1 47) 

S004  UO  5050  1=1* IMAX 


LU 1 12980 
EU I 12990 
tUI T  3000 
EDIT 30 10 
EDIT3020 
EDI T3030 
EDI T3040 
EDI T30b0 
EDIT  3060 
El)  IT.ro  70 
EUITiObO 
EDI T3090 


EDIT  3130 
EDI T3140 
EDlT31bO 


EDI T3240 


EDI T3310 

EDIT3420 
EDI T3430 
EDI T  3440 
EDI T3450 
EDI T34b0 
EDIT3470 
EDIT3480 
EDIT3490 
EDI T3500 
EDIT 3b 10 
EDI T3520 
ED) T3530 
EDIT3540 

EDI T3570 
ED IT 3580 

EDIT3600 
EDIT3610 
EDI T3620 
'EDI  T3630 


EDI T3700 


LPP=1 

JSJMAXA  EDI T3720 
K=KMAX4I  EDIT3730 
UO  5046  L=l* JMftX  EDIT3740 
J=J-1  EDI T3750 
K=K»IMAX  EDI T 3760 
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'jUIu 


bObO 

bubl 

c**** 

c 

c 

c 

9901 


LUIT3830 

EOIT3840 


9906 

9999 


rTAiuviJbi-ru) 

IF  (AMX(K)  >9904*b046*bU14 
oO  T(j(bUlO*b01H>  *LPP 
LPP=2 

i»K  I  TL  (0  *  01  3‘.) )  I*X(I)*UX(1) 

bOlO  *RlTt<6*OlOO)  J*  UIK )  *  V  ( K  )  *P(K )  *  (lit.  TA( K )  *  AMX! K )  # 

1  AiX  (K  >  *RHOlK>  .FlOUT  IK  )  *t APlK ) . VTAH 
004b  CONTINUE 
CONTINUE 

60  T0(l*990b* 120) *  100 TO 

tNU  0(-  L  P  SUuRUU T  INL  ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦*#*♦♦*♦♦♦♦*♦♦♦  **«******ElJj  1  3060 

EUIT3870 
t«nr3o«i 

ERROR  tOI 13090 

01=4.0120 
00  TO  9999 

9902  01=4,0019 
oO  TO  9999 

9903  bl=4, llbO 
00  TO  9999 

9904  bl=4.b012 
O0  TO  9999 

990b  01=4. bObl 
00  TO  9999 
bi=4.1240 
CALL  bPRlNT 

EDI  14100 

FOKMATb  EUl 14 1 10 

0902  E0KMA1 (//0X7M1NT  LN07X*  7MKIN  ENo*  7X*  7HINT +K IN*  7X  *  7Ht)VP  LN0*7X*7HMA 
10  tNO* 7X *  7HCNU  ENO*7X*7)lbCR  ENG  /  3X*IP7E14.7  //34X*7MTHF  ENG*7X* 

27MREL  ERR  /31X1P2L14.7  //) 

0904  FORMA  1 (3H  I2X6MMU0T/A4X3HM/A7XoHID0T/A4X3Ftl/A7X7HESD0T/A3X 
2  4HE  b/ A6X7HEUU0T/A3X0H!  I/E)D0T2X3MI/E7X7HM/E  DOT3X.3HM/E  /> 

0900  FORMAT < '3#1P11E10.3) 

0900  FORMAT I.V1X14MSUM  TlMtS  AREA/3X 1P1 1E10. 3) 

0100  FORMAT (13*1P11L10,31 

Olio  FORMAN  7M1  PRObbX . bHCYCLEbX * 4HT IME6X* 2HDT0X * 3HDTH7X * 

1  3M0TC7X  *  4HUT VF6X  *4HUTUF6X . 2HIH2X *  2H JH2X *  2HIC2X  * 2HJC2X*  ?HI V2X  * 2HJV 

2  2X  *  2HIU2X *  2HJU2A  /  F 7. 1  * bX *  lb* 3X * iPbElO ,4  *  814  ) 

0120  FORMAT (1H0//21H  TAPt  7  (JUMP  ON  CYCLE Jb//// )  E0IT4220 

0127  PORMAT(13*4(lP2E12.b.Ib))  EUIT4300 

0120  FORMAT (3H0  2 ( lP2tl2.o » bX ) > 

013b  FORMAT ( 1H  //3H  I=13*0X*bHX( 1)  =F 12 ,3* 6X * 7HDX ( 1 )  =FI2,3/  3H  J  3X 
1 1HU9X  * 1HV9X  * 1MP9X *  bHTMET  A5X  *  4HM AbS6X  *  3HA1X7X * 3HRH97X , 4HFLUX6X  *  3HC A 
2P7X*1HY  /) 

0201  FORMAT! I10*2H  154A2)  KDIT4360 

FORMAT (1H  /  616)  EUIT4370 

FORMAT ( 10X * 2H  I54A2)  EDIT4300 

FORMAT (F7, 1  * 13*2H  lb4A2)  ED1T4390 

F0RMAT(F7,1*3X*2H  lb4A2)  EDIT4400 

FORMAT ( 112* 101 10)  EUIT4410 

03070FORMAT (b)l  XI  =1PE12 r o* 3X * 4HX2  =E12 ,6* 3X * 6HXMAX  =E12 .6* 6X * 4HY1  =EI2EUIT4420 
1 «b*  3X*4MY2  =E12.0*3X»6HYMAX  =E12,6)  EDIT4430 

0300  FORMAT ( IF!  /)  E01T4440 

tNU  EOIT4450 


904!) 

0202 

0211 

8222 

8302 
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Ui  ) UK  CO  I >  (  111 /I  J 
bUllllOOT  INI  CUl 
t 

C  (I  I  M  l  It  >J  I  O  U 

(. 

I) 1  Ml  U'jION 

1U(12UU)»  V(l2UU>»  AMX  (  )  SUO )  »  A IX  (  12(10 )  *  PI  1200), 

ZIIILTAUZUO)  *  11(10(121)0),  HOUI 1 1200)  *  CAP(I20<>),  Ml  II >200), 

3PUU255)  >  141  (  SO  »  ,42(50)  ,43(  >IJ)  ,  IAIILMCiO)  , 

4ux  ( 52 ) »  a(53),  xx<‘j4)»  on  ioo),  nioo),  noon, 

SIAIMlb),  AMK  ( )  5 ) »  PM15),  (IK  (lb),  2(150),  12(150), 

blAU(52)»  PL(20U),  PR (200)  ,  (JL  (200)  ,  (111(200), 

/HtMlIUOIMAUCIlOOIdilWIIUU)  » OAMC  (  1  till )  , 

60(50)  , SOLID (4  0(1)  ,  II.MPd,  )  ,Ht  AP(  12) 


COMMON 

2 

,xx 

,  UK 

,PI( 

,  THE  1 A 

,  YY 

COMMON 

All) 

,  A I X 

,  AM 

,  AMI) 

,  AMX 

,  Aid  A 

COMMON 

1)10 

,  liOUlltl 

,00X11 

»OOVK 

,  0  VK 

,I)X 

COMMON 

l)Y 

*  t 

,F0 

,F5 

»FX 

»OUT 

COMMON 

P 

*PAHOVL 

,PI)LO 

,PII)1S 

, PPAMOV 

,PRII 

COMMON 

PUL 

,  UUT 

,I(C 

»HEZ 

,  RHO 

,IIL 

COMMON 

Mil ,  5i<, 

,O0(IOH.,* 

>4ITCH 

,  TAIILM,  1  All 

COMMON 

(AUDI  5 

,  TAUUTX 

,U 

,  UK 

»U9R 

rUT 

COMMON 

UU 

,UUU 

»UTf  (■ 

, UVMAX 

,V 

,  vamovi 

COMMON 

VULO 

,  VEL 

,  VK 

»VT 

,VTD 

,  VV 

COMMON 

WAD  OV 

, VVULO 

,W2 

,43 

WPS 

,45 

COMMON 

4SA 

,4514 

» 4SC 

,  XL 

,  XLF 

,XN 

COMMON 

XH 

,YL 

» YL4 

,  YN 

,  YU 

,  2MAK 

COMMON 

1 

,11 

,  IN 

,  IK 

,  145 

,  1 45 A 

COMMON 

1451) 

,145C 

,141 

,  0 

,  JN 

,JP 

COMMON 

OR 

,K 

,KN 

,  KP 

,KR 

,KI4M 

COMMON 

L 

,  M 

,  MA 

,  Ml  j 

,  MC 

»M0 

COMMON 

ML 

,M2 

,N 

,NK 

, NKMAX 

,NK1 

COMMON 

NO 

»WH 

,6 

» 50L 10 

,  TEMP 

COMMON 

HOUI 

»CAP 

>KFIT 

, I  SEND 

, IGOTO 

,HEAO 

C 


t  0  U  1  V  A  L  t  N  C  t 


UtUUI VALLNCE 
iu<4),mim), 
2(2(8), pioy), 
3(2(12)  ,  OAMX )  , 
4<2(lb)*IMU2)* 
5(2(20) , 1 YMAX) , 
6(2(24)  *0M1N)  , 
7(2(2B)*NPR), 
0(2(32) , NMC) , 

9 ( 2 ( 3b ) , JMAXA ) , 
OEOU I  VALENCE 
1 (2(43) ,000) * 
2(2(47), 11), 
3(2(51)» Nl), 
4(2(55), N5), 
5(2(59), N9), 
b(2(63) , THAO) , 
7(2(67), RADER), 
0(2(71), Ht2FCT), 
9(2(75), T020NU, 
0E9UI VALENCE 
1(2(62) iCAULN), 

2 (2 (8b) , OiSoU > , 
3(2(90), 51), 
4(2(94) ,55) , 

5  ( 2 ( 9b) , 59 ) , 


<2, IZ*PKOH) , 
(2(5) »('NINfC) » 
(2(9) ,IMZ) , 
(2(13), LTH), 
(2(17) , TMXZ) , 
(2(21), AMDM), 
(2(25) »FEF) , 
(2(29), UPRl), 
(2(33), 1MAX), 
(2(37) » KMAX ) , 
(2(40)  ,  NL>  > , 
(2(44) »NOPM) , 
(2(40) , 12)  * 
(2(52) ,N2)  , 

<  2 ( 5b ) , Mb ) » 

( 2 ( bO )  ,1110)  , 

<2<b4),XNR0>, 

( 2( 00 ) , KAOtT > , 
(2(72) >NSTOP) * 
(2(76), ECK), 
(2(79) ,X2) * 
(2(03), V1SC), 
(Z(07)  *45GX) , 
(2(91), 52) * 
(2(95), 56), 

( Z( 99 ) *  S10 ) 


(2(2) , CYCLE) » 
(2(b) * DUMP! 7) , 
(2(10)  , SC YCLF. )  , 
(2(14) >FFA ) , 
(2(16) , XMAX ) , 
(2(22), AMXM), 
(2(2b) »OTNA) , 
(2(30) »NC> , 
(2(34), IMAXA ) , 
(2(36) ,KMAXA) , 
(2(41), KOI), 
(2(45) »NIMAX) , 
(2(49), 13), 
(2(53) >N3) , 
(2(57) >N7) , 
(2(61), Nil), 
(2(65) ,5N), 
(2(69) ,RA0E(4) , 
(2(73) , SHELL) , 
(2(77) ,SBOUND) , 
(2(60) , Yl) , 
(2(64), T), 
(2(66) , GMAUIt ) , 
(2(92), 53), 
(2(96), 57), 


(2(3) , 

OT), 

( Z ( 7) , 

CSTOP) , 

(2(11) 

, SPKOB ) , 

( Z ( 15) 

,FFI)>, 

(2(19) 

, TXMAX) , 

(2(23) 

»DNN) , 

(2(27) 

, C VIS)  , 

(2(31) 

, N PC ) , 

(Z(35) 

* JMAX)  , 

( Z ( 39) 

, NMAX ) 

( Z ( 42) 

, I XMAX ) , 

(2(46) 

, NOMAX) , 

( Z ( 50) 

,14), 

( Z  ( 54 ) 

,N4)  , 

(2(58) 

,N8)  , 

(Z<62) 

,  NKM)  , 

(2(66) 

,OXN>, 

( Z ( 70) 

,DTRAO), 

(Z ( 74) 

,  BOOUNO ) , 

(2(78) 

,X1) 

(2(81) 

,Y2), 

( Z ( 85) 

,GMAX) , 

(2(69) 

, GMAXR ) , 

(Z(93) 

,54), 

( Z ( 97) 

,58), 

55 
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ULJUlVALtNCt 
l(/(lU3)#bVb)* 
2(/<  to/)  # 

3(Z(iii)#t/LK0)# 
3(/(  llt>)  *coi )  > 
4(/{119)#AHI() # 
b(/(123)#01C)# 
x(/( \di)  *cuun . 
b<z(i3n#  jd. 
7U(13b)#Jb)« 
b(z<i3V)#n<cutc) 
UtJUlWALl.NCt 
KZ(143)#bCKt># 
2(2(147)  #  JU)  # 

0CJUIVAU.NCt 

kpkuoo)  #mgc)  # 

2(UK(lb)  # AtoK I  # 


C 


</UUU)  #  HVU )  # 
</<  104)  .AlUM)  . 
Inflow)  ||)IIA)| 
(/(  U2)  #I»W* « 
(2( ilb)  #'jCl<)  « 
(/(I/O) >UTH)  # 
(2(1/4) *  1C)  # 
(/(12M)  #MCP)  # 
(Z(132)#J2># 
(2(130)# Jb)  * 

( 2 ( 1 4  0 ) #  V  APL ) # 
(2(144) < IV) « 
(Z«  14U) #L)TVF) # 

(XX(2)#X(i)). 
(PK#PC#GAMC )  * 
(UK(31)  #PK)  # 


U  M 


(2(101) #  HU)  i « 
(2<10b)#CV)» 

( 2 ( 10V) *  ALCO ) # 

(2(113)#CAPb)* 

(2(ll/)»lbH). 

(2(121>#IH># 

(/(  12b)  #UO# 

(2(129)*MM)* 

(2(133)*J3)> 


(2(141) .MAUL)# 
(2(14b)  » JV ) » 
(2(14V)*UTUF)* 

(U«»UC#FU-FT)* 
(UKt »  THETA) * 
(UH (4b ) #  QK ) » 


M  0 


FOR  1  MAltHlAU  ONLT 
lbtND=2 

UVMAX=-l./l)TNA**2 
TtMP(l)=-J./UTNA 
L)lUF  =  l.tlO 
UlVFtl ,tlO 

lF(NC.Nt.O)  OU  TU  300b 
UTUFsUT 
L)TVF=UT 
300b  UO  3200  U1«1MAX 
UU  3200  J=1#JMAX 
K-(J-l)* IMAX+ 1 ♦ 1 
3004  lF(AMX(K)(VU01#32bU#J02b 
302b  bV=l./RMO(K) 

1F(  JMR(KF1T(K)  #2)  .fcO.O)  00  10  3200 
1F(P(K) .LL.t.t-201  P(K)SO. 

1F(SV. OT. 2(138) )  00  10  3200 
blG=UX(l) 

iF(DY(,)).OT.bIG)  GO  10  3140 

bionmj) 

3140  Kbs()MK)*bV)*(t.04(P(K)*SV)/AlX(K) ) 
320b  UlCswb/S10**2 

1F(UVMAX.OT.U1C)00  TO  3220 

ICsl 

JC=J 

UVMAXSU1C 

3220  UTH?AUb(U(K))/OX(l) 

322b  lF(TtMP(l).GT.O!H)GO  TO  323b 
1HSI 
JH=s) 

ltMP(l)sUTM 

323b  UTHSAM5»(V(K)  )/OT(J) 

3240  IF (TtMP(l).OT, 071000  TO  3200 
1H=1 
JH=J 

TtMP(l)suTH 
GO  TO  3200 

32b0  IF (P (K ) *t Ji 0> )  00  TO  3270 

TfcMP(2l=  ur(0)/ABS(P(K))*.2S 
!F(TtMP(2).0T.0TVF)  GO  TO  3270 
UTVFsTtMP<2) 


( 2  (  102 )  » C)i)  # 
(/(10b) *GV) * 
1/(110) #AHU). 
(2(114)#  MNU ) * 

(/ (1 10) #bCOR) * 
(/( 122) #  JH) # 

(Z( l?b) #HF1)  # 

</( 130) ,C0)  • 

(  /  ( 1 34 )  #  J4 )  # 

(/( 130) #5VMAX) # 

(/( 142) #CNUE) # 
(/(14b), IU)» 
«Z(lbO) *CU) 

(UR(IOO) »YAMC) # 
(UR# TAD), 

( TV (2 ) #  V ( l)  ) 


M 
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iv= I 
j*=j 

J<!7U  If-  (THttA(K)  «hO«U,  )  00  TO  32WU 
TtMP(4)=UX(  I)/AI1^(  fHl  f  A ( K ) 

IF<TUMP(i) .oT.OTUF)  00  10  A^HO 
UfUF=TtMP(3) 

IU=I 
JU— J 

tea 0  CONTINUt. 

OTNAsUT 

w'  i  H£2  ( liV)  /  AUb(  T|lMM(  IN 
OT(,  =  l./SUKT<AbS<UVMAX)l 

UTsAMlNl <  AMIN1  ( AMIN1  <  AM1NI  <bTMA*FFA#l}TC )  #UTH)  »0f  VF )  MJTIIF ) 

3029  IF(OT.LT.FFb)  00  TO  990* 

3290  IF<T,CT,0.»  00  TO  9903 
•WOO  f  =  T+OT 
NC=Nt+I 
CTCLU5NC 
HPCSNPC+1 
WtTUNN 

C  NtOATIVt  «A‘jS 

9901  S1S5.J009 
00  TO  9999 

9902  01=5. 3029 
00  To  9999 

9903  01=5.3290 
9999  CAU  tUlT 

tuu 
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Wl  FOR  5CRO  5CKC/F0 
SUBROUTINE  SCKC 


0  1  M 

L  N 

5  I 

0 

N 

DIMENSION 

1U<12UU) , 

V( 1200) , 

AMX ( 120U)  , 

AIX  ( 

120Q),  P(1200), 

2  THt TA (  1200 

),  KH0O2UU) 

,  F 10UT ( 1200 ) 

,  CAP< 

1200),  KF I T ( 1200 ) , 

3!JUL  (255) ,  141(50) ,42(50) ,43(50) 

,  TAI)LM(bO), 

40X(52), 

X (53) , 

XX (54), 

UY(IOO), 

Y(100), 

YY(lOl), 

51  AO ( 10) , 

AMK ( 15) , 

PK ( 15) , 

(IK  ( 1 

5), 

2(150), 

12(150), 

6  TAU ( 52 ) , 

PL (200), 

Pl<  (200) , 

ULI200), 

UR<200) » 

7FLtFT<100) 

,  YAMC(100),51OC(100) 

»OAMC< 100), 

Ow ( 50 ) » 50L1 U ( 4UU ) , TEMP  < 12) , MtAO 

(12) 

COMMON 

2 

»XX 

,  UR 

,  PR 

, THE  Ta 

,  YY 

COMMON 

AID 

,  AIX 

,  AM 

,  AMU 

,  AMX 

,  AREA 

COMMON 

LUG 

.BOUNCE 

,  DDXN 

, DDVK  ,RVK 

»UX 

COMMON 

L)Y 

,t 

,  FU 

»F5 

»FX 

,  OUT 

COMMON 

P 

.PAUOVt 

»PWLO 

,PII)TS  .PPAHOV 

,PRP 

COMMON 

PUL 

,  OUT 

,KC 

,  REZ 

.  HHO 

,ML 

COMMON 

KR.SIG.OOOOFL, ! 

S4ITCH 

,  TAbLM 

,  TAU 

COMMON 

TAUOIS 

, TAUUTX 

,  U 

,  UK 

,  UHR 

,  UT 

COMMON 

UU 

,UUU 

.UTEF 

, U VMAX  ,V 

, VABOVE 

COMMON 

VBLO 

,  VEL 

,  VK 

,  VT 

,  VTEF 

,VV 

COMMON 

VVAUOV 

,  VVBLO 

,42 

,43 

,  4PS 

,45 

COMMON 

wSA 

,  4SU 

,4  SC 

,  XL 

,  XLF 

,XN 

COMMON 

XK 

,YL 

» YL4 

,  YN 

»  YU 

,  2MAX 

COMMON 

1 

.11 

,  IN 

,  IR 

,145 

,  I4SA 

COMMON 

I4SB 

.IWSC 

,141 

,  J 

,  JN 

,  JP 

COMMON 

JR 

,  K 

,KN 

»KP 

,  KR 

»KRM 

COMMON 

L 

»M 

,MA 

,MD 

,  MC 

,  MO 

COMMON 

Mt 

,M2 

,  N 

,NK 

.NKMAX 

,  NK 1 

COMMON 

NO 

,  NR 

,0 

, SOLID  , TEMP 

COMMON 

FI  OUT 

,  CAP 

,KFIT 

, ISENU  , I GOTO 

,  HEA!) 

tool  VALtNCE 


C 


OtOUIVALtNCt 
1(2(4),  PRINT!,), 
2<Z<8).PIUY). 
3(2(12),  OAMX  )  » 
4<2<l6).TMUZ). 
5(2(20). TYMAX ) . 
0(2(24), DMJN). 
7(2(20).  NPR). 
tJ(Z<32) ,NKC> » 
9(2(30), JMAXA), 
ULuUIVALt.NCt 
1(2(43). NOU). 
2(2(47) .11) , 

3 (2 (51 ) ,N1 ) , 
4(2(55), N5)» 
5(2(59). N9), 
0(2(63). THA U), 
7(2(67) .HAUER) » 
0(2(71), Ht2FCT) . 
9(2(75). T020Nt) » 
OtUUI VALtNCE 
1(2(82) , C ABLN) » 

2 ( 2 ( do) , 4S0U) » 
3(2(90) .51). 
4(2(94). 55). 
5(Z(90) .59) , 

UtUUI VALtNCE 


(2.12. PHOB). 
(2(5) »PRINTL) » 
(Z(9).TMZ). 
(Z(13).ETH). 
<2<17),TMX2)» 
(2(21), AMOM). 
(2(25). FEE). 
(2(29). NPfil), 
(2(33). XMAX), 
(Z(37),KMAX)» 
(2(40), NO), 
<2<44)»N0PR)» 
(2(40), 12), 
(2(52), N2), 
(2(56), N6)» 

( 2  (oO ) » N1 0 ) » 
(2(04), XNRO), 
(Z(OO).RAOET), 
(2(72) »HSTOP) » 
(2(76), ECK), 

<Z ( 79) » X2) » 
(2(03), VXSC), 
(2(07), 4SGX), 
(2(91), 52), 
(2(95) ,56) , 
(2(99), 510) 

(2(100), HVO), 


(2(2) >CYCLt) » 
<3<6)»0UMPT7)» 
<Z(10>,SCYCLE)» 
(2(14), FP A), 
(2(10), XMAX), 
(2(22), AMXM), 

(2 (26) , DTNA) , 
(2(30), NC), 

(Z ( 34 ) , XMAXA) , 
(2(38), KMAXA ) , 
(2(41), KDT), 
(2(45) , NIMAX) , 
(2(49), 13), 
(2(53), N3), 
(2(57), N7), 
(2(01), Nil), 
(2(65), SN), 
(2(09) »RAU£R)» 
(2(73), SHtLL ) , 
(2(77), SBUUND) » 
(2(80) ,Y1)  . 
(2(04) ,T) , 

(2(80) , GMAt)R ) , 
(2(92), S3), 
(2(96), S7), 


(2(101), HCB), 


(2(3). UT), 

<2 ( 7) » CSTOP) , 
(Z<11)  .SPR013) , 
(2U5), FFB), 

(Z ( 19) , TXMAX) , 
(2(23), DNN), 
(2(27), CV1S), 
(2(31) ,NPC) , 
(2(35), JMAX), 
(2(39) »NMAX) 
<2(42) , JXMAX) , 
<Z ( 46) , N JMAX ) , 
(2(50), 14), 
(2(54). N4), 
(2(58), N8), 
(2(62), NRM) , 
(2(66), OXN) , 
(2<70) , DTRAD) , 

( Z( 74 ) , OBOUND) , 
(2(78), XI) 
(2(81), Y2), 
(2(85), GMAX), 
(2(89) .GMAXK) , 
<Z<93),S4), 
(2(97) ,S0) , 


(2(102), CO), 


C  >0050 
0  ,10060 


0  U0110 
0  U0120 
0  U0130 
0  1 .10140 

0  U0160 
0  U0170 
0  U0180 
0  00190 
0  U0200 
0  00210 
0  00220 
0  00230 
0  00240 
0  00250 
0  00260 
0  00270 
0  00280 
0  00290 
0  00300 
0  00310 
0  00320 
0  00330 
0  0034Q 

0  00440 
0  D0450 
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1(2<1U3)»SVS>» 

2 < 2  <  1 U  7 )  .  bUMF  l  f  » 
3<2<1U>»L21ku>. 
3<2<  Ub>  ,COL>  » 
4(2019)  #  ANN )  » 

b<2<i23)»urc>» 
x<2<i27),u)Ut>. 
b<2<i3i)»ui). 
7<2<l3b)»Ub>» 
#(2( 13V)  .FHCUTC) 
OtOUl VALENCE 
1  (2( 143) »SCRL ) » 
2<2<147).UU)» 


(2(104), 

<2<1U0)» 

(2(112), 

<2<llo). 

(2(12(1). 

(2(124). 

(2(120). 

(2(132), 

<2<13b)» 


ATOM), 
lit.  1  A  )  . 
PW)  . 
SCR). 
ljT(l) . 
1C). 
HCP). 
J2)  » 

J  b). 


(2 ( 1  Ob ) »C 1/ . 
<2<10'>).ALCO), 
(2(114). CAPS). 
(2(117). ISK). 
(2(121  ).  111). 
(2(125).  JO. 

(2  ( 12V)  .1(10 . 
<2<133)»J3)» 


<2  <  1  Ol»)  »0V) , 
(2(110). ANN). 
(2(114). MNU) » 
(2(110).  SOW). 

( 2  < 1 22 ) >  JH ) » 
(2<12b)»RFT), 
(2(130) »C0) . 
<2(134  »U4)» 

( 2  < 1 30 ) . SVMAX ) . 


(2(140). VAPL), 
(2(144). IV). 
(2(140), UTVH. 


(2(141) .HAUL), 
(2(140), UV), 
(2(149).DTOf ). 


( 2 ( 142 ) .CODE ) , 
( 2 ( 1 4b ), 1U) » 
(2(150), LIU 


OLWUIVALtNCE 
1<PH<100).SIOC). 
2 ( UR ( lb)  »  AMK ) . 


( XX ( 2 ) , X ( 1 )  >« 
(PR.PL.OAMC) » 
(  UK  (  31  ) » PK  )  » 


(UR.UL.FLLF  T) » 
(UKE.  THETA). 
(UK ( 4b>  » OK  > , 


< UP ( 1 00 ),TAMC). 

(UR.TAH), 

<rr(2).V(l)) 


»2  ( I ) 
2(110) 
2 ( 1  lb) 
2(117) 
2(110) 


1*2(1  ) 
COL 
SCR 
I  SR 


<CM**2/0M) 

< JERK/CM**2-5H) 


1 

2 


FLUX  INTO  SOLID 
ADSORPTION  COEF. 

INITIAL  SOURCE 

NO.  OF  2 ONES  WITH  SOURCE  IN  I  DIRECTION 
SOURCE  DURATION 
F1FT1=L2LR0 
IF (  NC.tU.l) 

lFlFT=0.b*E2ERO*<2.*<  r-UT)/SCDK)**(ANN*l.  ) 

1F(T.LT.0.S*SC0K)  00  TO  1 
IF ( T.oT . SCUR)  00  TO  2 

FIFT1 SE2EH0* ( 1 . - . b* ( 2. *  < 1 .- T/SCUR ) ) ** ( ANN* 1 . ) ) 

00  TO  2 

FlFTl=0.b*E2ERO*(2.*T2SCUR)**(ANN*l.) 

SCR=AdS (FIFT1 -F1F  T )/UT 
FlFTsFIFTl 

SCRE  =  FIFT*  PXUV*X  < I SR) **2 
1F((1.0E.SCUR).ANU.((T-DT).LE.SC0R))  SCR  SO. 

I4P=Jb*l 
DO  200  Isl.lSR 
1S=(1-1)*20*1 
SOL ID ( 1S*4 ) SFIFT 
uFISsO. 

FIIN  s  SCR 
«*2  ( I )  =U. 

DO  100  US2.14P 
KS( J-1)*IMAX*I*1 
NSK-1MAX 

1F(J.L«.I4P)  00  TO  20 
lF(JMK<KFlT<K),2),Nt.l)  00  TO  100 
IF ( UMK(KF1 T <N) , 2) «NE. 1 )  00  TO  50 
1F(  J.EU.2)  F10UT (N)sFllN 
1F(SC1>R»EG» 0, )  FIOOT(K)sO. 

20  F,IfN=FlOUT(N) 

IF< J.EG.14P)  6 d 
50  SV!rl./KHQ<K) 

CALL  ESK(THETA(K)»SV»N»CAP(K)) 

fSCs-RHO(K)  *t)T  ( J)  *CAP(K) 

(ROSC. ME. 0.)  GO  TO  b5 
IOUT (K)sFIlN 
OF 1=0. 

OOTO  70 
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U074U 
1)0780 
00790 
1)0800 
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UOObO 
U1020 
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e»t>  CONTINUE 

FX0UT(K>=HlN*EXPtHyc.,C> 
UES=f-XIN-HOUT<K> 
v>y  Ty  70 
t>0  *f2<I>=HIN 
UEX=0, 

70  UFJS=UUi+UFl  *DT'>TAU<  I ) 

AXX < K )  =AXX(KJ  ♦ye  X *TAU< 1 ) /AMX < K I *0T 
X00  CONTI NUt 

tHH=ETH  ♦  UFIS 
200  CONTINUE 
KtTUKN 
tNU 


noon 
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1.1 1 

c 

c 


c 


FOR  UOIL.  liOIL/)J 
SUbHOUIINL  UOIL 

U  J  M  f  N  b  1  0  N 


UlMLNSlON 


iua?oo)  # 

V<  1200)  > 

AMX(1200>  * 

A I X  ( 1 

200 

)•  r(i?oo>* 

2  theta (izuo ) 

•  HHOU20U) 

#  F 10UT ( 12C0 ) 

•  CAP! 1200 

)•  KF 1 T ( 1200 ) • 

3PUL(2S5) » IWl  (t>0)  « wa ( t>0  ) .  Wit  00) 

.  TAULMl 

SO) » 

4U  A  ( 'j(L  )  . 

X(53)  * 

XX (54). 

t)Y(lOO)  . 

Y(100)  • 

Yr(lOl). 

5  TABUS). 

AM* (lb) . 

PM  lb). 

OK  (lb)  • 

/( ISO)  • 

12 (ISO) . 

oTAU(52)  » 

PL  4  200 ) * 

PM200)  . 

UL(200) . 

UR (200 )  • 

7FLLFI (100) . 

YAMC(IOO) .b 

IOC (loo) 

•GAMC (100) • 

80 (50) .SOL ID (400 > .TEMPI  ID .HLAU 

(12) 

COMMON 

2 

.XX 

•  UK 

•  PH 

•THETA 

•  T  Y 

COMMON 

AIL) 

•  A1X 

•  AM 

•  AMI) 

•  AMX 

•  ARf  A 

COMMON 

BIG 

. oouNce 

•  Dt  IN 

•  UDVK 

•  DVK 

•  UX 

C  MMON 

uy 

>  L 

•  PL1 

•  PS 

•  F  X 

•  OUT 

COMMON 

p 

. PABOVE 

•  PbLO 

•PIUTS 

•  PPAIOV 

•  PHR 

COMMON 

PUL 

•  OUT 

•  HC 

»HE2 

•  RHO 

•  HL 

COMMON 

HH.blG 

#  UUOOPL. SMI TCH 

• TAbLM. 

TAU 

COMMON 

TAUUTb 

. TAUUTX 

•  U 

•  UK 

*  URH 

•  UT 

COMMON 

UU 

»UUU 

•  UTEF 

• UVMAX 

•  V 

•  VAriOVE 

COMMON 

VbLO 

#  VEL 

»VK 

•  VT 

•  VTFP 

*  VV 

COMMON 

VVAbOV 

. VVBLO 

•  M2 

•  M3 

•  MPS 

•  MS 

COMMON 

MSA 

•  MSB 

•  MSC 

•  XL 

•  XLF 

•  XN 

COMMON 

XR 

.  YL 

•  YLM 

» YN 

•  YU 

•  ZMAX 

COMMON 

I 

•  11 

•  IN 

•  1R 

•  IMS 

•  IMSA 

COMMON 

1MSU 

•  1 MSC 

•  I  Ml 

•  J 

•  JN 

.  JP 

COMMON 

JH 

•  K 

•  K.NI 

»KP 

•  KR 

•  KRM 

COMMON 

L 

•  M 

•  MA 

•  MB 

•  MC 

•  MU 

COMMON 

ML 

*M  ?. 

•  N 

•  NK 

•NKMAX 

•  NK1 

COMMON 

NO 

.NR 

•  G 

•SOLID 

•  TEMP 

COMMON 

FIOUT 

•  CAP 

•  KFIT 

• I SEND 

•IGOTO 

•  HEAD 

too 

I  V 

A  L 

E  N 

C  L 

OtOUIVALENCE 

(Z.IZ.PROb). 

(2(2). CYCLE). 

(2(3)  . 

DT). 

1 (2(4) .PRINTS) * 

(2(b). PH1NTL) • 

(2(b). DUMPT7) . 

(2(7)  . 

CSTOP) . 

2(2(8) .PIUY ) . 

(Z(9) • TMZ) • 

(2(10) fSCYCLE ) • 

(2(11) 

.SPROB) . 

3(2(12) .GAMX) . 

(Z(13).ETH). 

(2(14) »FFA) • 

(2(15) 

.FFH) » 

4 ( 2 ( lb) • TMUZ) • 

(Z(17) • TMXZ) • 

(2(18). XMAX), 

(2(19) 

•  TXMAX)  . 

5(2(20) .TTMAX) . 

(2(21). AMDM) • 

(2(22) • AMXM) » 

( Z (23) 

.  DNN)  . 

b ( 2 ( 24 ) . UMIN ) • 

(2(25). FEF). 

(2(26) »DTNA) » 

(2(27) 

.CVIS). 

7(2(28) *NPH) . 

(2(29). NPRI). 

(ZOO). NC). 

(2(31) 

.NPC)  . 

8(2(32) • NHC ) • 

(Z<33>. IMAX). 

(2(34) . IMAXA) . 

(205) 

. JMAX)  . 

9(2(38) • JMAXA) . 

(2(37f  XMAX) » 

(2(38) .KMAXA) . 

(209) 

• NMAX ) 

OtOUI VALENCE 

(2(40) .ND) • 

(2(4l).KDT). 

( Z (42 ) 

•IXMAX). 

1(2(43) *NOU) • 

(Z( 44 ) . NOPH ) » 

(2(45) .NIMAX) • 

(2(46) 

. NJMAX) . 

2(2(47) .  ID  . 

(2 ( 48 ) » 12 ! • 

(2(49). 13). 

0(50) 

.14). 

3(2(51) .Nl). 

(2<52>.N2). 

(2(53) »N3) • 

(2(54) 

*N4) . 

4(2(55) »Nb) . 

( 2 ( sb ) • Nb ) * 

(2(57) .N7) . 

(2(58) 

•  N8) . 

5(2(59) *N9) . 

(Z(uO> • N10 )  • 

(2(61). Nil). 

(2(02) 

.  NRM) » 

b(Z(63) .TRAD) • 

( 2 (b4 ) . XNRo) • 

(2(65) .SN> • 

(Z (66) 

.  DXN)  . 

7(2(67) .RADER) • 

( 2 ( 08 ) . HADtT ) r 

(2(69) .KADEB) . 

(2(70) 

.UTRAD) . 

8(2(71) .KL2FCT) . 

(2(72) .RSTOP) • 

(2(73) .SHELL) » 

(2(74) 

•BBOUND). 

9(2(75) .T020NL) • 

(Z»7b) .ECK) . 

(2(77) .SBOUND) » 

(Z(78> 

•  XI) 

OtUUI VALENCE 

(2(79).  X2)» 

(2(80) .Yl) . 

(2(81) 

.  Y2) . 

1(2(82) » CAbLN ) » 

(2(83). VISC). 

(2(84). T). 

(Z (85) 

•  GMAX)  • 

2(2(8b) . MSoD) • 

(2(87) .MSGX) • 

(2(88) .GMADR) • 

( Z ( 09 ) 

. GMAXR ) . 

3(2(90) .SI) • 

(2(91 ) »S2) • 

(2(92). S3). 

(2(93) 

.54). 

4(2(94) . jb) • 

(Z(95) » S6) • 

(2(96). S7). 

( Z ( 97 ) 

.S8) . 

5 (2 ( 98) • S9) * 

(2(99) • S10 ) 

OLUUI VALENCE 

(2(100) .HVB) • 

(2(101) .HCB) . 

(2(102 

).Cb). 
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ll^lll'J)  »bVS)» 
2»2(tU7),bUMFL), 
5(2(111), LZtNO). 
5(2(11  b)»C0ti» 
4(2(119) « AHN) * 
b(2(l25)»UTC)» 
X(2(l27)»CDUT). 
b  12  ( 131) » J1 ) » 

7 ( 2( 15b) » Jb) » 
0(2(1.59)  .FKCDTC) 
0EJU1 VALENCE 
1(2(145) »SCKE) » 
212(147) ,JU)» 
0EUU1VALENCE 
1 (PR( 10U) ,SIgC ) » 
2  (UH( lb) ,  AMX)  . 


(2(104) *  ATOM) * 
(Z(lUO) .LlETA) , 
(2(112). PW>, 
(2(110) ,  SCK) * 
(2(120)  *L)Tl()  • 
(2(1241,10, 
(2(128)  »MCP)  . 

( 2 ( 152 ) , J2 ) , 

( 2 ( 15b )  ,  Jb )  , 

(2(140) »  V  APt ) , 
(2(144). IV)* 
(2(148). UTVF). 
(XX(2) . X ( 1 ) )  • 
(PR.PL.GAMC)  . 
(UK(Jl).PK). 


(2 ( 1  Ob ) . C V ) . 
(Z( 109) • ALCO) » 
(2(115) .CAPS) » 
(2(117), IbH). 
(2(121), 1H), 

( 2 ( 1 2b ) , JC ) , 

(2 ( 129) »MH ) , 
(2(155), J5)» 


(2(141), HAUL), 
(2 ( 14b ) , JV) , 
(2(149), DTUF), 
(UR,UL,FLLFT)» 
(DKE, THETA), 
(UH ( 46 ) *  QK ) , 


(/(10b), GV), 
(2(110), ANN), 
(2(114), HNU), 
(2(118), SCUH ) , 
(7(122). JH), 
(2(120), RFT)» 
(2(150), CO), 
(2(11)4)  ,J4), 
(2(158), SVMAX ) , 

(2(142), CNUE), 
(2(140), 1U), 
(2(150), Ell) 
(UR(IOO) ,TAMC>  , 
(UH.TAH) , 

( VY (2) ,7(1)  ) 


CONTINUOUS  U0ILIN6  VtHSlON 
CNUE=0. 

DO  1000  1=1. IbH 
J=Jb 

1C  K=(Jb-l)*IMAX+l+l 
J=( 1-11*20+1 
C  SOL  ID ( J+2) =PH1  SUb(bV)  bUP(N) 1/2) 

TEMP ( 1 ) =CDUT*MCB/ ( SOLID (  J+l ) *C V ) 

IF(CUUT.tQ.O.)  TEMP( 1 ) =HCH*42 ( I ) /HH 
SOLID! J+2)=W2( 1 )-TEMP( 1 ) 

IF ( SOLID (J+2) . GT .0 » )  GO  TO  20 
SOLID! J+2)  =0. 

SOLID! J+b)  =0. 

SOLID ( J+12 )=P (K ) 

SOL  ID ( J+ll ) =0  • 

SOLID! J+14)=U, 

S0L1D( J+15)=0. 

GO  TO  4b0 
20  CONTINUt 

C  P  TEST 

S0LlD(d+ll)=S0LIU(J+2)*C0/(GV*(HH-HCB) ) 

200  L=K-IMAX 

SOLID! J+10) =P(K) 

IK(JMK(KF1T(L),2).NE.1>  GO  TO  210 
lF(P(L).GE.P(K))bO  TO  210 
SOLID! J+10>s(3.*PC  )-P(L))/2. 

210  IF (SOLID! J+ll) ,LT (SOLID (J+10) )  GO  TO  500 

C  M  DOT 

SOLID ( J+b) =SO ,ID ( J+i 1 ) *GV/CO 
C  VELOCITY  VI 

SOLID!  J+l  b)=**C0 

SOLID (J+12)=S0L1U(J+11)+S0L ID (J+6)*ABS( SOLID (J+15)  ) 
GO  TO  4S0 

500  1F(SOL1D(J+10).GE.(GV-1.)*HCP/SVS)GO  TO  4~0 
A A=HVB+ ( GV-1 .  ) *HCP-SOL ID ( J+ 1 0 ) *  S  V  S 
BB= . b* ( (GV-1 . ) +HCP/SOL ID ( J+10  > -SVS ) **2 
TBU=2.*UB 

AAP= ( AA/SOL1DI J+2) ) **2 

1F(BB.GT.1.E-2*AA*AAP)G0  TO  340 

SOLID! J+b) sSOL 10 (J+2)/AA* ( 1,-UB/ ( AA*AAP) ) 

GO  TO  3b0 

340  BBP=,5*S0LlU(J+2)/BB 

SBA=S«HT(l.+AA*AAP/(b.7b*BB> ) 

SAA=(SBA+1.)*BBP 
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bAA=(6bA*l.)*HiU' 


Sbb~ ( SBA-1 • ) *UUP 
lHSUU.wT.U.)  GO  TO  3b0 
bOLIUl J4to)=bAA**.33J,}3-bbU**.  33333 
60  TO  360 

3S0  !>db=-b!3b  ' 

aOL I U ( J+ to ) =b  A  A* ♦ . 333 3 3+bbH* * . 33333 
360  CONTINUE 

SOLID (J+ lb) -“bOKT ITbb) *  SOLIDI J*6) 

SOLID (J+12)sSOLIb(J+10)tSOLlD<J46>*AbSlSOLlU<J*lb>  ) 
GO  TO  4S0 
400  SOLIU(J*1J)=0. 

bOLIUl J+b)=  M2 ( I ) / (HVB+HCB) 

SOLID! J+ 12) =S0LID(J+1U) 

4b0  SOL  1 U  ( J+ 14 )  =SOL  IU  ( J+b )  *TAU(  1 )  *DT 
IK(SOLID(J+J).LE.Q.)  GO  TO  460 
bOL  ID  ( J*3 )  =SOL  ID  ( JO )  -Ht  U*SOL  I D  <J*  1 )  /SVS 
60  TO  465 

460  bOLTD(JO)  =SOLID»JO)  ♦«2(I)*DT 

bOLID ( JU ) =bOL!D( J*  1 )  *M2( I ) *DT*S VS/HCU 
60  TO  470 
465  CONTINUE 
C  SOLID (J*l ) =Z(N+1) 

MM00T=<W2(I)-S0LlD(J*6)*HH)*SVS*DT/HCb 
IF(MMDOT.LT.O.)  *MDOT=0. 

SOLID! J+1)=S0LID(J+1)+WMU0T 
TEMP ( 1 ) =CDUT/ l C V*S0L ID <  J*b ) ) 

IF ( SOLID (J+l)  •GE.TEMPI1) )  SOLID!  JU)=TEMP!1) 

SOLID!  JO)  =SOLID(JO)  +HCB*S0LID !  J*1 ) /SVS 
470  CONTINUE 

SOLIDl J+7)  =bOLIU( J+7)  + SOLID! J+6) *DT 
SOLID! J+to)  =S0LID!J*8)  +M2iI)*0T 
SOLID! J*13)=S0LID! J+13)+SOLID! J*12) *DT 
WAPE  =  SOLID! J+2) *TAU( I ) *DT  +VAPE  +HCb*SOLID! J+14) 
CNDE=SOLID!JO)*TAU!I)+CNDE 
bOO  CONTINUE 
1000  CONTINUE 
8001  KETUKN 
END 
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FOR  PHI#  PH1/FJ 

SUBROUTINE  PHI 

DIMENSION 

DIMENSION 

1UI12UU).  VI12UU).  AMXU200).  AIXI1200).  P(120<(># 

2THtTA(  1200 ) »  HHO(  1200 )  #  FIOUT(1200).  CAP(1200)»  KFIT(1200)» 

3PUL (2bb)  .  IW1  ( bO)  .M2(  b() ) .  M3(  SO) .  1  At)LM ( bO  >  # 

PHI 

PHI 

PHI 

0010 

0020 

0030 

4UX(5*). 

X(53)» 

XX ( b4) . 

oy  ( i  oo )  #  moo)# 

YY(lOl). 

PHI 

00»0 

b  r  AU ( lb ) » 

AMK ( lb ) > 

PK ( 15) > 

UK  ( lb ) #  Z(lbO). 

IZ(lbO). 

PHI 

0090 

bTAUlbd) » 

PL (200) » 

PH ( 200 ) # 

UL  (200 ) >  UHI200) • 

PHI 

0100 

/FttF! (lUO).VAMC(ll)O)  .SlbC(lUU)  .bAMC(lOO). 
0o(b0).S0LI0(4U0>»  TEMP(  12)  »HEAU(12) 

PHI 

0110 

COMMON 

2 

»XX 

#UH  #PH  #THFTA 

.  VY 

Pill 

0130 

COMMON 

AID 

>  A I X 

•AM  .AMD  . AMX 

•  AHEA 

PHI 

0140 

COMMON 

BIG 

•  IJOUNCL 

»DUXN  . DDVK  .DVK 

•  OX 

PHI 

oibo 

COMMON 

ur 

#L 

.FD  »FS  .FX 

•  OUT 

PHI 

0160 

COMMON 

p 

.PAHOVE 

. PBLO  .PIDTS  .PPABOV 

»PRR 

PHI 

0170 

COMMON 

PUL 

#UDT 

>HC  »HEZ  »RHO 

»RL 

PHI 

OIBO 

COMMON 

HH.S1G.GU00FL.: 

b A ITCH  .TABLM.TAU 

PHI 

0190 

COMMON 

TAUUTS 

» TAUUTX 

•U  .UK  •  .URR 

.UT 

PHI 

0200 

COMMON 

UU 

#uuu 

•UTEF  .UVMAX  .V 

•VABOVE 

PHI 

0210 

COMMON 

VBLO 

>  VEL 

•VK  .WT  » VTEF 

.VV 

PHI 

0220 

COMMON 

VVAUOV 

•VVBLO 

.M2  .M3  >MPS 

•  MS 

PHI 

0230 

COMMON 

MSA 

>MSti 

. MSC  .XL  . XLF 

•  XN 

PHI 

0240 

COMMON 

XN 

.  yl 

. YLM  »YN  .YU 

.ZMAX 

PHI 

02b0 

COMMON 

1 

>11 

•IN  >1R  .IMS 

.IMS  A 

PHI 

0260 

COMMON 

lMStt 

.  ImSC 

.  1M1  .J  .JN 

.JP 

Pill 

0270 

COMMON 

JH 

»K 

.KN  .KP  »KR 

.  KRM 

PHI 

0200 

COMMON 

L 

»M 

•MA  .MB  »MC 

.MO 

PHI 

0290 

COMMON 

ML 

.MZ 

•  N  .NK  » NKMAX 

•  NKl 

PHI 

0300 

COMMON 

COMMON 

NO 

HOUT 

LOU 

/NH 
•  CAP 

1  V 

•G  .SOLID  .TEMP 

•KFIT  . ISEND  .IGOTO 

A  L  E  N  C  E 

•  HEAD 

PHI 

PHI 

PHI 

0310 

0410 

0420 

ULUU! VALENCE 

(Z.1Z.PR0B). 

(Z(2). CYCLE). 

(2(3) . 

DT). 

1(2(4). PRINTS). 

(Z(b).PHINTL). 

(Z(b).DUMPT7). 

( Z ( 7 ) .CSTOP). 

2(Z(S) .PlUY) • 

(Z(9> » TMZ) . 

(Z(IO).SCYCLE). 

(Z(U) 

.SPROB). 

3 ( Z ( 12 ) • GAMX ) . 

( Z ( 13) • ETH) . 

(Z( 14) . FFA ) . 

(Z(15) 

»FFB) » 

4(Z(lb).TMUZ)» 

(Z( 17) » TMX2) . 

(Z(IO).XMAX). 

(2(19) 

. TXMAX) . 

b(Z(?0) .TYMAX) . 

(Z ( 21 ) . AMDM) • 

( Z ( 2 2 ) . AMXM) . 

( Z ( 23) 

.  DNN ) . 

b (2 ( 24 ) . DMIN) . 

(Z(2b).FEF). 

(Z (26) .DTNA ) . 

(Z (27) 

•CVIS). 

7 ( Z ( 20 ) . NPH ) . 

( Z (29) • NPHI ) . 

(2(30)  .NO. 

(2(31) 

. NPC ) . 

0 ( Z ( 32) . NHC ) . 

(Z (33) • 1MAX) . 

(Z( 34) . IMAXA ) . 

(Z (35) 

•UMAX). 

9(2 (3b) .UMAX A) • 

( Z ( 37 ) . KMAX ) . 

(Z( 38) . KMAXA ) . 

(Z(39) 

•NMAX) 

UEQUI VALENCE 

( Z ( 40 ) • ND ) . 

(Z(41).KDT). 

(Z(42) 

•1XMAX). 

1(2(43). NOD). 

( Z ( 44 ) . NOPR ) . 

(Z(45) .NIMAX) . 

( Z (46) 

. NJMAX) » 

2(2(47). 11). 

( Z (40) • 12) . 

( Z ( 49 ) .13) . 

(Z (50) 

.14). 

3(2(51) .Nl) . 

( Z  ( 52 ) .  N2 ) . 

(Z(53) . N3> . 

( Z  ( 54 ) 

»N4) » 

4 ( 2 ( 5b) . Nb) . 

(Z(b6) . Nb) . 

(Z(b7) .N7) . 

<Z (58) 

•  NO). 

b(Z(5C).N9). 

(Z(bU).NlO). 

( Z ( 61 ) .Nil) . 

( Z ( 62 ) 

.  NRM) . 

b ( 2 ( 63) .TRAD) . 

( Z ( b4 ) . XNRb ) . 

(Z(b5).SN). 

(Z(66> 

»DXN) . 

7(2(67). HAUER). 

(Z(bS) . HADET) . 

(Z(b9) . RADEB) . 

(Z(70) 

.DTRAD). 

0(2(71). HEZFCT). 

( Z ( 72 ) .RSTOP) . 

(Z( 73). SHELL). 

(Z(74) 

.  BBOUND) . 

9 ( Z ( 7b ) . T OZONE ) » 

(2(76). ECK). 

(Z(77) . SBOUND) . 

( Z ( 78) 

•  XI) 

OEuUl VALENCE 

(Z( 79) .X2) . 

(Z(80).Y1). 

(Z(fll) 

» Y2) » 

1(2(02) .CABLN)  . 

( Z ( 03 ) . V1SC ) . 

(Z (84 ) . T) . 

(Z (85) 

.GMAX). 

2 (2 (Sb) . MSGU) . 

( Z ( 07 ) .MSGX) • 

(Z(88) .GMADR). 

(Z(8 9) 

•GMAXR) . 

3(2(90) .SI) 

(2(91). S2). 

(Z(92) .S3) . 

<Z(93) 

.  S4) . 

4(2(94). SS)* 

(Z(95).S6). 

(Z(9b).S7). 

(Z(97) 

.SO). 

5(2(90). S9). 

( Z ( 99 ) >  S10) 

ULUU I VALENCE 

(Z(100) .HVU) . 

( Z  < 101 > .HCB) . 

( Z ( 102) . CB ) . 
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I 

I 


i 

i 


} 

I 

1 


l 


c 


c 

c 

c 

c 

c 

c 

c 

c 


i(2(l03)»SVS)» 

*(2(IU7)'5UM!-t)» 

3(Z(I11>#E/EH0)» 

3(2(II5)*C0E)# 

4  (2( 119) » AHN) # 
5(2(123)  .L>TC). 

X( 2(127)  rCUUT)  r 

6<Z<I3I).J1). 

7(2(135)'J5)» 

6(2(139)  .KHCUTC) 

Ut.iUIVAU.HCfc. 

l(2(I43)»SCHt)» 

2  (2  ( 1473  r  JU)  t 


(2(104) .ATOM) # 
(ZdOONBEfA). 
(2<112>.PW). 
Ulllb)  r  SCR)  r 

(2(i20>  »utm)  . 

(2(124).1C)» 
<2(I2B)  »HCP)  » 
(2(132). J2>. 
(2(I3b)  .  J6) . 

(2( 140) • VAPE) * 
(2(144) . IV) « 
(2(146) »OTVF) . 


(2(105)  »CV) . 
(2(lU9).ALCO)» 
(2(113) (CAPS) » 
(2(117). 1 SR). 
(2(121)'  III)  . 
(2(125) » JC) » 

(2 ( 129) »HH) » 
(2(133) » J3) » 


(Z( 10b) »OV) » 

( z ( 1 1 u ) » Ann) ' 

( 2  ( 1 ) 4 )  .IINU) . 

( Z  ( 1 1 P ) . SCUM ) ' 
(Z( 122) » JH) » 

<2(  12(i>  »RFT) . 
<Z<I3f)),C0)» 

(2 ( 134) » J4) » 
(2<I3B)»SVMAX). 


(Z(I41)»RAUE)»  (Z(142)#CnOE)» 

(2(145) ' JV) »  (2( 146) » IU) » 

(2(149) .OIUF) »  (2(150). Ell) 


UtOUIVALENCt 
HPK(IUU) .Slut) » 
2 (UK (lb) » AMK) . 


(XX(2) .X(l)  ) . 
(PK.PL.bAMC) » 
( UK ( 3 1 ) #PK ) . 


(UK.UL.FLEFT ) . 
(OKE. THETA) . 
(UK(4b) .GK) . 


(UR (100) . YAMC) 
(UK. TAH) » 

( VV (2) *  V( 1 ) ) 


UC-l.UE+15 


VELOCITIES  ANU  INTERNAL  ENERGY  FOR  PHASE  ONE 


PH)  0710 
»PH1  0720 
PHI  0730 
PHI  0740 
PHI  0750 
PHI  0760 
PHI  0770 
PHI  0760 
PHI  0920 
PHI  1060 
PHI  1070 

phi  ;oao 


urso.u 


SUOO  EL=1.U 
3301  HCsOX(i)/2.U 

KKs ( X ( 1 ) +X ( 2 ) )  /2  •  0 
3304  UU  336U  Ul.lMAX 
TAUDT5=TAU( I ) *0T 
C 

C  UETEKMINt  LIMITS  ON  J  LOOP 
CALL  U  JLOW  ( JLOW . JH I GH ) 

C 


C 

C 

C 

C 

C 

C 


C 


C 


KSI+1*(JL0N-1)*IMAX 
UO  3346  Js JLOW  . JH 1 GH 
TISO. 

KU=K-1MAX 

NSK+1MAX 

P10TS-l.U/(PlUY*uT*UY( J) ) 
does  CELL  CONTAIN  ACTIVE  MASS 
10  1F(  JMK(KFIKK)  #2) ) 9901  *5340*20 

UtTEKMINt  LOCATION  IN  GK10  FORM  1 » J( I .E.KFLAG) 

20  KFLA6=JMR(KF1T(K).1) 

COMPUTATION  OF  PKESSUKE  ANO  VELOCITY  AT  RIGHT  INTERFACE 
ANU  ASSOC IATEU  ENERGY  CHANGES. 


GO  T0(8U. 60. BO. 60. 80. 80. 80. 60. 60. 60. 80. 40. 60. 40. 40. 60) .KFLAG 
un  TRANSMITTING  INTERFACE  ANU  ASSOCIATED  TOTAL  ENERGY  CHANGE 

Hu  PHN-rLiJ) 

URK-U(K) ARC 

E  THSETH- ( PHR*U ( K ) ARC ) /P 1 UTS 
GO  TO  110 

REFLECTION  AT  RIGHT  BOUNDARY. 

60  PKRsP(K) 

UKRSO.O 
GO  TO  110 

NORMAL  RIGHT  INTERFACE  COMPUTATION 
80  IF ( JMK(KFIT(K+1 ) >2) ) 9902*107. 106 

106  PHRs(P(K) AP(KAl) )/2.0 

UKRs ( U ( K ) ARC+U ( K A 1 ) aRR ) /2 , 0 
GO  TO  110 

107  UKRsU(K) ARC 


t 


m 
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prrso.o 

COMPUTATION  OF  PRESSURE  AND  VELOCITY  AT  TOP  IN7EIIFACE 
OF  CLLL  ANU  ASSOCIATED  tNERbY  CHANGE. 

110  bO  TOUbO.lbO.  140*  lbO . IbO * IbO. 120.  140 . 140 . 100. 160 » IbO . 120. 120 . 160* 
UbO).KFLAb 

C  TRANSMITTINb  C0NU1T10N  AT  TOP  CELL  INTERFACE  ANO  ASSOCIATED 
C  LNtRbY  LOSS 

120  PABOVE=PBLO 
VABOVE=V(K) 

ETH=E TH” (P ABOVE* V (K)*TAUUTS)/2.0 
bO  TO  200 

C  REFLECTION  AT  TOP  INTERFACE  OF  CELL 

140  JU=tI-l)*20*l 

IF(l.bT.ISH)  00  TO  ISO 
lF(SOLID<UB*2).iO.O.)  00  TO  ISO 

PTsANAX 1( SOLID IJU*11 )* AMAXl U3.*P(K) -P <KH) )/2.0*P(K))  ) 

IF ( JMK (KF1T (Ki!/  .2)  .EU.O )  PT=50LID< JU*ll) 

14S  PABOi/E=PT 

Tl=  PT  *(V(K)“  SOLID (JU+ 15) )/2.0 

VAUOVE-  V IK) 

ETH=LTII-  PT  *50L10(Jb*Ib)*TAUDTS/  2.0 

00  TO  200 
ISO  PABOVE=P<K) 

VABOVE-O .0 
00  TO  200 

C  NORMAL  CALCULATION  AT  TOP  INTERFACE 
160  1F( JMRTKF IT(N).2) )9903. 186.185 
185  PABOVE=(P(K)*P<N) )/2.0 
VABOVE=<V(K)*VlN) )/2.0 
bO  TO  200 
18b  PABOVE=0.0 
VABOVE=V (K) 

C  DETERMINE  IF  THERE  ARE  bOUNOARV  CONDITIONS 
C  AT  THE  LEFT  AND  BOTTOM  INTERFACES. 

200  bO  TO ( 3328 • 220 . 3328 . 3328 . 320 • 340 . 3328. 220 ; 3328.320 . 220 . 3328.220 . 
13328.340. 220). KFLAG 

C  REFLATION  AT  LEFT  INTERFACE  OF  CELL 
220  Pl.<.*  -P(K) 

UL<  .=0.0 

C  DETERMINE  BOUNDARY  CONDITIONS  AT  BOTTOM  INTERFACE 

bO  TO ( 3328 .3328.3328. 3328 .320.340. 3328 » 3328 . 3328. 320 . 320 . 

13328 . 3328 .3328.340.349). KFLAG 
C  REFLECTION  AT  BOTTOM  INTERFACE 
320  PBLO=P(K) 

WBLOSO.O 
bO  TO  3328 

C  TRANSMIT! I VE  AT  BOTTOM  INTERFACE 
340  PBLO=P ABOVE 
VBLO=V(K) 

ETH=ETHMPABOVE*VU)*TAUUTS)/2.0 
C  VEL=1.  FIRST  PASS 
3328  1F(VEL)9904. 3327. 3326 
3326  CONTINUE 


V(K)=V(K)*(PULO-PAUOVE)/AMX(K)*TAUDTS  PHI  1800 

1F(ABS(V(K)).LT.1.E1)  V(K)=0. 

3329  U(K)=U(K)HPL(J)<»PRR>/AMX(K)«RC/P10T5*2.0  PHI  1830 

1F(ABS(U(K)).LT.1.E1)  U(Kf=0. 

3327  AIP=P(K)*UTAUOTS/2.0)*<VBLO-VABOVE)  PHI  1860 

1  ♦(1.0/P1UTS)*<UL(J)-URR))  PHI  1870 

T1  IS  ZERO  EXCEPT  AT*J=US 
AIPSA1PFTAUUTS  *T1 
«SX  =AIX(K)+A1P/AMX(K)  ' 

1000  IF (WSX) 101 1.1 00 1.1001  "‘11  1900 

1001  AIX(K)=WSX 
bO  TO  3342 
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1011  ursi.o 

«>A:«;.0*AlX(KI/J,0*Ur/(AU(Kl-l»sXI 

1013  1F<W5A-UU)1014.1UU1.1UUI 

1014  UUSWiA 

O0  TO  1001 
3340  PHRSO.O 

PAOOVEEO.O 

UHHeu(K*1) 

VAUOVE=V<Nl 
J342  V6L0=VA60VE 
PL(J1:PKH 
OL<J>:UHK 
K=N 

3340  P6L0=PAbMVE 
3355  MC=RW 

HR:(k(l*ll*A(l+2) 1/2.0 

3360  CONTINUE 

3361  IF (VEL190U5. 7040. 3363 
3363  VEL=U.O 

60  To  3301 

C  ERKyK 

0901  61:0.0010 
60  TO  0000 
0902  51S6.000U 
00  TO  9000 
9903  5US.0160 
60  TO  9909 
9004  51:6.3326 
00  TO  9099 
9905  51:6.3361 
9099  CALL  tOU 

NOTE.  IF  5N=0<  COUE  »1LL  INTEGRATE 
HACK KAROS  TO  CORRECT  THL  INTEGRATION  OF 
INTERNAL  ENEHG*  IF  5N  NOT  0.  NEGATIVE 
ENERGIES  ARE  LEFT  ALONE. 

7040  IF1SN17030. 7031. 7030 
7031  IF (UT 17020. 7030. 7010 
7010  UTs-1. 

UTs-UT 
60  TO  6000 
7020  UT:0. 

UTsUU 

NHIsUT/TKAOFI. 

NICMINOCNHH.NHH 

RSSNN 

TRA0:0T/H5 
OTNAiOT 
GO  TO  6000 
7030  HE TURN 
ENU 


PHI  1030 
Pill  1040 
PHI  19*,0 
MM  |  19., 0 
PHI  1970 
PHI  10HO 
Pill  1990 
Pill  2000 
PHI  2010 
PHI  2029 
Pill  2060 
PHI  2040 
PHI  2050 
PHI  20o0 
PHI  2070 
PHI  2080 
Pill  2090 

Pill  2110 
PHI  2120 
PHI  2130 


Pill  2270 
PHI  2260 

Pill  2300 


PHI  2330 
Pill  2340 
PHI  2350 


uu  w  o  o  u  o 
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UI  I- OH  PH2»  PH2/FJ 

subroutine  PH2 

DIMENSION 
DIMENSION 

10(l2u0)»  V  ( 1200 )  »  AMX(  1200 ) «  AIX(1200)»  P(1200)» 

2fHETA(  1200)  *  HMO(1200)»  FiOUT<1200)»  CAP(  1200)  ,  KFIT(1200)» 

3PUL( 255)  ,  141 (50 ) ,42(50) ,43(50) ,  TABLM(50)  , 


4UX ( 52 ) , 

X(53)  » 

XX ( 54) » 

DY(IOO),  Y(100>, 

YV(lOl) 

5fAB(15), 

AMK( 15) , 

PM  15) , 

OK ( IS) .  Z( 150) . 

12(150) 

bTAU(52)» 

PL (200)  , 

PM20U), 

UL (200 ) .  UR ( 200 ) » 

7FLEFT (1001 

»  YAMCUOO) .SlOC(lOO) 

.CAMC(lllfl). 

80(50 ) ,  SOLID ( 400 )  ,  Tfc.MP  ( 12 )  ,HLAU(  12) 

COMMON 

2 

,xx 

.UN 

.PH 

*  .theta 

»VV 

COMMON 

AID 

#  A1X 

.AM 

.AMU 

r  AMX 

.AREA 

COMMON 

DIO 

.UOUNCE 

.ODXN 

.dovk 

»DVK 

.DX 

COMMON 

dV 

»E 

«FD 

.F5 

»FX 

.OUT 

COMMON 

P 

» PABOVE 

«PULO 

.PIOTS 

.  PPAtlOV 

.PRR 

COMMON 

PUL 

»OOT 

»RC 

.RE2 

.RMO 

.KL 

COMMON 

HH.SIO.0000FL.S4ITCH 

.TABLM.TAU 

COMMON 

TAUUTS 

.TAUDTX 

«U 

.UK 

.URR 

.UT 

COMMON 

UU 

,uuu 

.utef 

.UVMAX 

•  V 

. V ABOVE 

Common 

VBLO 

» VEL 

.VK 

.VT 

.  VTEF 

.vv 

COMMON 

VVADOV 

, VVBLO 

.42 

.43 

.4PS 

.45 

COMMON 

45A 

»4SB 

.use 

.XL 

»XLF 

.XN 

COMMON 

XH 

»vl 

,  YL4 

.YN 

.YU 

.ZMAX 

COMMON 

1 

,11 

.IN 

.  IR 

.  14S 

.  I45A 

COMMON 

1  USD 

,I4SC 

.141 

»U 

» JN 

.UP 

COMMON 

JK 

#K 

»KN 

*KP 

.KR 

»KRM 

COMMON 

L 

»x 

.MA 

.MB 

.  MC 

.MD 

COMMON 

ME 

.N 

»NK 

.NKMAX 

.NK1 

COMMON 

NO 

»NH 

.0 

.SOLID 

.TEMP 

COMMON 

FIOUT 

.CAP 

»KF1T 

.  I SEND 

. I GOTO 

.HEAD 

r 

o 

c 

1  V 

A  L 

E  N 

C  E 

OEOUl VALENCE 

(2.12.PKOB). 

(2(2). CYCLE), 

(2(3), 

DT) » 

1(Z(4). PRINTS). 

(2(5) .PR1NTL) . 

(2(6) .DUMPT7) » 

(Z(7), 

CSTOP) , 

2(2(8) .P1UY) » 

(Z(9).TMZ). 

(2(10) .SCYCLE) , 

(2(11) 

.SPROB) » 

3(2(12). GAMX). 

(2(13), ETH). 

(Z( 14) »FFA) , 

(Z( 15) 

«FFB>» 

4<Z(lb),TMOZ) . 

(2(17), TMX2), 

(2(18). XMAX), 

(Z(19) 

.TXHAX), 

5(2(20). TYMAX). 

(2(21), AMDM), 

(2(22). AMXM), 

(2(23) 

»DNN) , 

b(Z(24) *DMIN) . 

(2(25). FEF), 

(2(26), DTNA), 

(Z( 27) 

»CV1S), 

7(2(28). NPR). 

(2(29), NPKI). 

(Z(30)»NC)» 

(2(31) 

»NPC), 

8(2(32) .NRC ) . 

(2(33). (MAX), 

(2(34), 1MAXA ) » 

(Z(35) 

.UMAX), 

9(2(3b) .UMAXA) » 

(2(37), KMAX), 

(2(38) .XMAXA), 

(2(39) 

, NMAX) 

OEOUl VALENCE 

(2(40), NO), 

(2(41) »KDT)» 

(2(42) 

» IXMAX ) » 

1(2(45). NOD). 

(2(44), NOPK), 

(2(45) .NIMAX), 

(Z(46) 

.NUMAX) » 

2(2(47) . 11 ) . 

(2(48), 12), 

(2(49), 13), 

(2(50) 

,14), 

3(2(51). Nl). 

(2(52), N2)» 

(Z(53) »N3) , 

(2(54) 

»N4)» 

4(2(55). N5). 

( Z ( 56 ) «  M6 ) , 

(2(57), NY), 

(2(58) 

»N8) » 

5(2(59), N9), 

(2(60), N10), 

(2(61) .Nil) » 

( Z ( 62 ) 

»NRM) » 

b(2(63) .TRAD) . 

(2(64)  ,XNR(j) , 

(Z(65) ,SN) , 

( Z ( 66 ) 

»DXN)» 

7(2(67). RADEK). 

(2(b8) .KADET) , 

(2(69) .RADEB) » 

(2(70) 

.DTRAD), 

8(2(71). REZFCT) » 

(2(72) .KSTOP) » 

(2(73), SHELL), 

(Z(74> 

,  UUOUNO ) , 

9(Z(75) .T020NE). 

(2(76), ECK), 

(Z(77) .SBOUNO) , 

(Z( 78) 

,X1> 

OEOUl VALENCE 

(Z( 79) »X2) » 

(2(80) ,Y1« , 

(2(81) 

,Y2), 

1(2(82). CABLN). 

(2(83), V1SC), 

(2(84), T), 

<Z(65) 

,  GMAX) » 

2(2(8b).4SbO). 

(2(87) ,45GX) , 

(2(88) , GMAOR ) » 

(2(89) 

, GMAXR ) , 

3(2(90). 51). 

(2(91), 52), 

(2(92), S3), 

(Z(93) 

,S4) , 

4(2(94). 55). 

(Z(95) ,56) » 

(2(96), S7), 

( Z ( 97 ) 

»S8) » 

5(2(98). S9). 

(2(99) ,510) 

IHI2 
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UtOU I VALENCE  (Z(IOO).HVU). 

l(Z(lU3).svs).  (Z(1U4)»aTom). 
2(Z(IU7).SUM Ft)*  (Z(108)#BETA). 
3(2(111). t/EHU).  (Z(1I2).PV>. 
3(2(1  IS). COE).  (Z ( lib)  »SCH)  . 
4(2(119)»AMN)»  (2(120)»0TH)» 

5(2(123). UTC).  (Z(124).JC). 
*(2(127) »CUUT) *  <Z( 128) »HCP) . 

b(2(131).Jl).  (Z(132).J2). 

7(2(136)  » J6)»  (Z(136).J6). 

0(2(l39)»FHCUTC) 

OEWUI VALENCE  (2(140) . VAPE) • 

l(2(143)»5CRt).  (Z( 144) » IV)  » 

2(2(147) »JU) »  (Z< 140)»DTVF)» 

Ot 9U1 VALENCE  (XX(2) #  X  < 1 ) ) » 

1 (PH(IUO) »SIO<  ' »  (PK.PL.bAMC). 
2(UR( lb) .  ANa  ) »  (UH ( 31 ) .PK ) » 


COM 


<Z(  101)  .HCU)  #  (Z(102).CB)» 

(Z(IOS).CV).  (Zd06).6V). 

<Z(109)»ALC0)»  (Z(llO).ANN). 

(Z(113) »CAP5) *  <Zdl4).HND)» 

(Z(117)»15H).  <2dl8).SCDR). 

<Z(I21)»1H).  (2<122).JH). 

(2( 12b) » JC) »  (Zd2b)»WFT). 

(Z(129).HH).  !Z(13U).CO)» 

(Z(133).J3).  (Z( 134) .34) » 

(2(136). SVMAX). 

1 Z 1 141 ) .HADE) *  (Z< 142) .CNUE) * 

(Z(145)»JV)»  ( Z  ( 14b) * IU) * 

(2(149) .DTUF ) #  <Z(150)*tlll 

(UR.UL.FLEFT) *  (UR( 100) .  YAMC) . 
10KE. THETA)#  (UR. TAB). 

(UR (4b) «OK) »  (Vr(2).V(l)) 


M  O'  U 


continuous  eulerian  transport  for  inter  coot 


FOR  TtST  OF  MASS  TRANSPORT  ONLY 


PH2  0740 
PM2  0760 
PH2  0900 
PM2  0900 
PH2  0990 
PH2  1010 


UONNERsO.O 

UONER=0.0 

C 

NMT=0 

PJ0TS=1.U/(PIUY*UT> 

101  U)  103  jsl.JMAX 

102  6L.1C(J)=0.0 
FLEFT(J)S0.0 
YAMC(J)=0.0 
SIGC(J)=0.0 

103  CONTINUE 

UO  547  lsl.lMAX 
CALL  OJLOH( JLOW. JHI6H) 

K=ld*(JLOV-l)*lMAX 
DO  546  J=JLOW. JHI&H 
FSR=0. 

FS0SO. 

L=KdMAX 

LPSL4IMAX 

KH=K-IMAX 

IS=(l-l)*20d 

C  DETERMINE  BOUNDARY  CONDITION  ON  CELL  I»J 
KFLA6sJMK(KFIT(K)»1) 

C  TEST  BOUNOARY  CONDITION  AT  BOTTOM  CELL  INTERFACE 

60  T0(301. 99. 301. 301. 01. 02. 301.99. 501. 01. 81. JOl. 99.301. 02. 
102) .KFLA6 

C  REFLECTION  AT  BOTTOM  INTERFACE 
01  IF(V(K) ) 05. 04. 04 
04  AMMYsO.O 
AMMUsO.O 


PM2  1060 
PH2  1070 
PH2  1060 
PM2  1090 
PH2  1100 
PH2  1110 
PH 2  1120 
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AMMVsO.O 
UELED=0.0 
GO  Ty  99 

tit)  AMMYs ( AMX  <K )  *V<K)*OI)/L)Y(J) 

IF  ( AMMY+AMXIK) )  97# 10b#  10b 

97  AMMYs-AMXIK) 

10b  AMMVs2.0*AMMY*V<K) 

AMMYsO.O 
AMMUsO.O 
UtLEbsO.O 
GO  TO  99 

C  TKANSMITIlVt  AT  DOTIOM  INTEHFACt 
U2  1FIVI Kl.tQ.O.)  GO  TO  64 
AMMUsAMMY*U(K) 

AMMV  SAMMY* V(K) 

OtLEli  sAIX(K) ♦  IU(K)**2  *V<K)**2>/2. 
tTH  SETH  ♦  AMMY*l>ELtti 

C  TtST  BOUNDARY  CONDITION  AT  LtFT  CELL  INTEHFACt 
99  GO  TO(3Ul#lOt># 301*301# 3ul»30l#30l*10S*3lil#301»10S# 
>’  301# 10b#  301#30l#10bl#KFLAG 
C  KEFLECT  AT  LEFT  INTEHFACt  OF  CELL 
105  1F"(UIK))108#107#107 
107  FLEET (J)so 
GO  TO  767 

lOti  GAMC<J>=(AMXlK»*X(H*2.0*UlX)l/ITAU<I)*PIDTS> 

IF  I GAMC I J » ♦  AMX  ( K I >  7bt> #  7bb #  7b6 

766  GA*CIJ)s-AMX(K) 

76b  FLEFT<J)S2.0*GAMCIJ>*UIK) 

767  GAMCI Jl so.O 
YAMClJlso.O 
3IGC ( J)=0.0 

C  TOP  INTEHFACt  OF  CELL  COMPUTATION 

601  GO  TO ( 304  # 604 » 902*304*604  * 304 #  303  # 302  # 602 *  304# 
1304# 304# 303# 303# 304 # 304) *KFLAG 
C  KEFLECT  AT  TOP  CELL  INTERFACE 

502  IFKI.GT.ISK)  .OH.  ISOLIUIIS*2) .EO.O. ) )  GO  TO  3302 
AMPYs-S0LIDIIS*14» 

IFIAMPY .£0.0. I  GO  TO  bOl 
GO  TO  b03 

3302  IFIViKI)  30b#305#30b 
30b  AMVTSO.O 
GO  TO  bOl 

306  AMPYs<AMX<K)*V<K)*OT)/DYU) 

IF ( AMPV*AMX (K ) ) 307#  508*300 

307  AMPYs-AMX(K) 

308  AMVTs2.0*AMPY*V(K) 
bOl  AMPYsO.O 

AMUTsO.O 
UELETSO.O 
GO  TO  b05 

C  TRANSMIT  AT  TOP  CELL  INTERFACE 

303  IF ( V  <K ) )b04#b04#  508 
b04  AMPYsO.O 

AMUTsO.O 
AMVTSO.O 
UELETSO.O 
GO  TO  b03 

308  IF(AMXIK) )b04#504#9ti 

98  AMPYsUMX(K)*VW)*UT)/UYIJ) 

GO  TO  b03 

C  NO  BOUNDARY  CONDITIONS  AT  TOP  INTERFACE 

304  IFHAMXCLI.NE.O.)  .AND.  ( JMK(KFITIL) *2) .EO.O) 

1  .AND.  U.EO.Jb-1))  GO  TO  214 

IF (  JMR(KFITIL) #2) .EO.O  )  GO  TO  703 
214  IF < JMHIKFITIK  )#2).NE.O)  GO  TO  209 
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ULTZsUYCjFlt 

UL2=F10UT<K) 

FMTs.5 

VFK=f'<K) 

IFCCJ.Lt.JS-D.OM.U.GT.ISHC.OM.CAMXOO.NE.O.))  GO  To  21* 
YFK=<GVU.)*<-CO)/<GV-i.) 

P(K)sVFR 
GO  Tu  2  lob 

2lo  lFCAUSCVCL))  .gT.AUS<F<K)>)  VFK=V<L» 

1F(  ( AMXCK) . Nt.O. ) .ANU. ( AUS< V(K) ) . GT . AHS( P <K J ) I )  VFR=V<K> 

P  ( K )  s  VF  K 

21*6  VABOVt=V  (L  J  ♦  <  VFH-V(L>>*UY<Jf1>/<UY<Jf1>f2.*FI0UT<K) > 

FIOUT <K) SABS  <  VFK) *UT*F 10UT  <K  > 

IF (F10UT<K).0t.UY< J)-l.t-7)  P<Kb)sP(K> 

IF (  <HOUT<K).GE.UY(J)-l,E-7)  .ANU.  («>MK( KFIT (K+l).2).tQ.O)  J 
2  TMtTAtK*l)  sTHLTA(K) 

IF(F10UT<K).GE.OY< J)>  FI OUT (KM)  sF  I  OUT (K) -DY( J) 

FMTsCFIOUT <K)/<DCT2*UL2) ) **4*  ( 1 .- (DL2/F IOUTCK) J**4)*FMT 
IFIFMT.GT.I. )  FHT=1. 

AMP Ys-AMX ( L ) *FMT 

XFISVAB0VL**2+U<  L ) **2-AMX  ?K ) / <  AMX  <K ) -AMPY ) * ( ( V (K ) -V APOVC )  **2 
2  ♦(U(K>»U<L)>«*2) 

GO  TO  5U3 

215  IF ( JMR (KFIT  (K>*2).EW»U)  GO  TO  504 

200  YABOVtsV(K)  PH2  1510 

GO  To  212  PH2  1520 

209  VA0OVt?V(O*(V(K)-V(L>  )*UY( J+l )/ (UY ( J*1 )  FDY  ( J) ) 

212  CONTINUE  PH2  1540 

IF (VABOVtJ 701.703# TOO 

700  IFIAMX(K) >703.703*704 

703  AMPVsO 
AMUTsO 
AMVTs'l 
UELETSO 
GO  TO  503 

704  KCsL 
KUSK 
JJ=J 

lFC<tKHO<L>.GT.RHO<K>>. ANU. (VABOVE. LT.O.)  >.OR. 

2  (  (KHO(L) .LT.RHO(K) ) . ANU. <  VAOOVE.GE .0. >  > ) 

3  GO  TO  *140 

AMPTSTAUCI  ) *RH0 (KD) *VAbOVE*DT 
IF ( V CKO) *V(KC) .LT.O.)  AMPY=U. 

60  TO  *150 

*140  ANPYs  TAUCI>/3.A<RHO(L)*VCL>+RHO<K)*V<K> 

1* VABO V£*5GRT I RHO (K ) *KHO(L) ) ) *DT 
IF ( AMP YF V ABOVE .LT.O.)  A RPYsO. 

*150  AVMs.5*(l.*RH0(KC>/KH0<KD)) 

VAB0VE=AVG*V<K0)F(1.-AV4)*V<KC) 

GO  TO  503 

701  IFfAMXfU >703.703.705 

705  KC=K 
KU=L 

IFC ( (KHOCL) .GT.RHOCK) > .AND. < VAbOVE.LT.fl. >  > .OR. 

2  ( (KHO(L> .LT .RHOCK) ) .AND. ( V&BOVE.GE.0* >  >  > 

3  GO  TO  *140 

'M'PYsTAUCI  > *RH0 (KO ) * VAb07E*0T 
IFCVCKO) *V CKO  .LT.O.  )  AMPY=U. 

GO  TO  *150 

C  RIGHT  INTERFACE  OF  CELL  CALCULATION 

503  GO  T0(406»405*405»70*.405»405«405» 405.706.706. 

1405*707*405*707.707.405) .KFLAG 
C  REFLECT  AT  RIGHT  CELL  INTERFACE 

706  IFCUCK) >700*700*710 


71 
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7ua  AMJR=U.O 
00  TO  709 

710  AMMPS<AMX<KUX<  1>*2.0*U(K)>/<TAU<I)+PIDTS> 

1F( AMMP-AWX  <K) ) 712#  712*711 

711  AMMP=AMX<K> 

712  AMUR=2.0*AMMP*U(K) 

709  AMMPsO.O 

AMVM-0.0 
UtEEK=0.0 
00  TO  71b 

C  TRANSMIT  AT  NIGHT  CELL  INTERFACE 
707  IF(U<K))713*713.714 

713  AMMPsO.O 
AMUR=0.0 
AMVR=0*0 
UEEEK=OrO 
GO  TO  71b 

714  IF  ( AMX  (K))713»713*7I‘j 

71b  AMMP=(2.U*AMX<K>*X(I>  *U<K))/<TAU<IUPiDTS,> 

GO  TO  71b 

40b  IF<  JMK(KHT(K+1)  #2) >411*411*409 

409  |F(AKXtK< >410*410*407 

410  URR=U<K+I) 

GO  TO  400 

411  IF< JMR(KFIT<K)*2>.EU.1>  GO  TO  406 
403  UKK-O*  0 

GO  TO  400 

406  CONTINUE 
ULYZ=  UXU  +  1) 

ULZ=  CAP(K+1) 

UFK=THETA(K+1) 

1F( AUS(U(K) ) .  GT.  AttSl  THETA (K+l ) )  )  UFR=U(K> 

IF(J.EG.J5)  UFR=2.*C0/(GV-1.) 

1F( <AMX(K+1>.NE.U.) .AND.<ABS<U(K+1)).GT.ABS(THETA<K+1> >) ) 

2  UFK=U<K+1) 

THETA(K+I)=UFH 

URK=U(K)+(UFR  -UIK)  )*UX(I)/(DX(IUCAP(K+1) ) 

CAP<K+1>=  ABS<  UFR) *UT+CAP(K+1 ) 

IF<CAP<K+1J.GE.DX<I+1)-1«E-7JTHETA<K+2>=THETA(K+1> 

IF ( <CAP(K+1) *GE*DX ( I+l ) -1 .E-7) » AND. < JMR  <KFIT  (KB+1) *2) »EG»  0)1 
2  P(KB+1)=P(K+1) 

IF(CAP(K+1) .GT«DX( I+l ) )  CAP ( K+2  > SCAP<K+1) -DX  ( 1+1 ) 

FMT= < CAP <K+1 ) / ( DLTZ+ULZ) > **4* < 1 . - (OLZ/CAP (K+1T  >**«*> 

FMT=.b*FMT 

IF(FmT.GT.1.)FMT=1. 

AMMP=AMX<kUFMT 

UFI=UKK**2+ V(K )**2_AMX (K+l ) / ( AMX (K+l) +AMMP)*( <  U<  K+l ) -URR ) +*2 
2  ♦  <  V (K+l )-V(K) U*2> 

GO  TO  71b 

407  URK=U(K)v<U<K+l)-U(K> )*UX(I+1>  /  ( OX  ( 1  Ul)X  (1+1) ) 

400  CONTINUE  PH2  1700 

C  NO  BOUNDARY  CONDITIONS  AT  RIGHT  INTERFACE 
IF (URR) 710*719*717 
717  IF(AMX(K) >719*719*720 
720  KCsK+1 
KO=K 

GO  TO  730 
6100  CONTINUE 

XlisX<I)-0X(I)/2. 

XdP=X(I+l)-UX(I+l)/2. 

AMMP  s( (RHO(K) *Xd  *U(K> +RH0(K+1 ) *XbP  *U(K+1>> 

1  +UHK*X ( I ) *SORT ( RHO ( K ) *RHO ( K+l ) )T  *2 . /PIDTS* . 33333*0 Y ( J ) 

IF(AMMP*UKH.LT.O.)  AMMP-0 . 

6110  AUGS.b*(l.+RHO<KC>  /KHO(KD) ) 

1F(A*JG.GT.I.)  AUtt=l. 
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UHK=AUW*U(Kl))-M  l.-AU*f)*U(KC> 

IF  (U(K).NL.O.)  00  10  7 lo 
UKRSO. 

719  AMMP=0.0 
AMUR=0.0 
AMVR=0.0 
UELCK=0.U 
oO  TO  710 

718  IF ( AMX (K+l ))719y7i9*7«dl 
721  KC=K 
K0=K4i 

730  1F(  (  (KH0<K).GT.RH0<K+1> )  .ANlt.  (URR.OT.O.I)  .OR. 

2  (  <NH0<K>.LT.RH0<K+1)).ANU.  ( URK.LT.O. ) ) ) 

3  TESTsUONNEH 

AMMP=MH0<KU>*X<l)*UNH*2./PlUTS*L)YU) 

1F(U(KL))*U<KO.LT.O.  >  AMMP=U. 

00  TO  OllU 
71b  CONTINUE 

IF ( JHKIKFIT (K  >»2>.EU.O)  GO  TO  7260 

IFCJ.EU.Jb)  00  TO  71o0 

IF ( JMR (KF1T (L) * 2 )  .EU. U )  GO  TO  7160 

VPEU5=V<LP)4<»MD-V<CP>  )*DY<  J42>/<DY<J*2)4DY(J+1>  > 

IF(VPLUS)  7020*7010*7010 
7010  *C=LP 
KU=L 
JJ=J+1 
00  TO  7030 
7020  KC=L 
KU=LP 
J* 2 

7030  IF ( ( (  HHO(LP) . GT.RHO (L ) ) . ANU. ( VPLUS.LE.U. ) )  .OR. 

2  ((  RHO(LP) .LT.HHO(L) ) . AND. ( VPLUS.GE.O. ) )  ) 

3  00  TO  7040 

AMMPY=TAU(I  ) *HHO < KU ) * ¥PLUS*DT 
IF(V(KU>*V(KC».LT.O.>  AMMPY=0. 

GO  TO  7060 
7040  CONTINUE 

AMMPY=TAU(1>/3.*<RH0(LP)*VU.P>4RH0(D*V(L> 

1  +  VPLUS*50RT  <  KHO  ( L )  *RMO  ( LP )  >  )  *DT 
IF(AMMPY*VPLUS«LT.Q.>  AMMPYsO. 

7050  CONTINUE 

IF ( JMKCKFIT (LP ) *2 ).EU. 0 )  AMMPY=0. 

IF (  (J.EU.J6-1>.AND. (l.EE.ISK>  )  AMMPV  — “SOLID (1S414  ) 

IF?  (J.EU.J5-D.AN0.  (I.OT.ISR)  )  AMHPY  =0. 
UPS=U(L)4(U(L4l)-U(L>>4'UX(l)/(DXtI>4DX(l4l)) 

IF ( UP5 )  7070*7065*7065 

7065  KU=L 

KC=L4l 
00  TO  7060 
7070  NC=L 
KU=L+1 

7080  IF  C  ( (RH0(L).0T.KH0(L4l)  ).AND.  (UPS.GT.O. )  >  .OR. 

2  ( (HHO(L) •LT.RH0(L41 >  > .AND. (UPS.LT.O. ) ) ) 

3  TEST=Uf)NE'R 

AMMMP  s  RHJ(K01*X( 1)*UPS*2./  PIDTS*DY(J) 

IFCU(KUl*U(XC).LT.O.)  AMMMP=0. 

00  TO  7005 
7090  CONTINUE 

XB=X(I)-0X(I)/2. 

XBP=X(l+l)-UX(l4l)/2. 

AMMMP=  (RH0(L)*X8*U(L)+RH0(L+l)*X»P*U(L4i; 

1  4UPS*  X ( 1 1 *SORT ( RHO ( L ) *RHO ( L+ i ) » >*2./PlUTS*. 33333*07 <J+1 > 

IF (ANMMP4UP5.LT *0. )  AMMMP=0. 

7096  CONTINUE 

IF ( JMR (KFIT (L+l ) *2 ) .LU.l > SO  TO  7060 
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IMAMX(L*l).tG.O.)  UFH  =l.b*U(L) 

IF  ( Altb(THtTA(L*l ) )  .LT • AUb(UIL)  > )  UH«=  UIL) 

ULTZsUX(I4l> 

OLZ-CAP (L+l ) 

CAPLP=CAPIL»lM'AbSIUH<)*UT 

FMT2(CAPLP/(ULTZ*L)LZ) ) **4*(  1 .-(ULZ/CAPLP)  **4) 


FMTr.bAFMT 

AMMMP=AMX(L )* I AMIN1 (FMT > 1 . ) ) 

7060  CONTINUE 

IF(  (GAMC(JU>-AMMPY+AMX(L>*.5>  .(it.  ( AMMMP-AMPY >  > 
MSA  =  ( GAMC  I  J+l ) “AMMPY+AMXI L )  * . b) / 1  AMMMP-AMPY ) 


GO  TO  7IhO 


AMPY=AMPY*W5A 
7160  CONTINUE 

IF(JMK(KFIT(K+1) #2) .LQ.O)  00  TO  7260 
AMMPY=AMPY 

IF  (  f-J.LO.  Jb)  .ANU.(I.LE.IbR))  AMMPY=-SOLID(  15*14) 
IF!  U'.ta.Jb)  ,ANU.  (I.GT.ISR))  AMMPY=0. 
IFIGAMC(J)”AMMPY+AMXIK)*.5.gT . AMMP-AMMY)  GO  TO  7260 
AMMP  =  GAMC I J) -AMMP Y+AMMY *AMX IK ) ♦  •  5 
IFIAMMP.LT.O. >  AMMP  =0. 

7260  CONTINUt 

FL0=H0UT(K)-U)YW)-l.E-7) 

J09  IF ( AMPY ) 8834 #8831 #8633 

8833  IF(JHIGH-J)990l#3l8»083b 

863b  IF I JMH (KFIT (K ) #2 ) . EU. 1 )  00  10  8837 
KMSK-IMAX 

IF I JMHIKF IT (KM  >»2).tG.O)  GO  TO  8833 
1FIFLO.LT.O.)  GO  TO  8837 
CALL  MFSTIKFITIK) #2) 

00  TO  318 

8837  IF (  T AU(  I  )*DY(J  )/  AMPY  .LT.ZU38)  )  GO  TO  318 

8838  AMPY=0.0 
00  TO  b831 

8834  IF (J-JLOM) 9902# 32b. 8839 


8839  KPSK+IMAX 
IFIJ.EO.JHIGH)  GO  TO  8840 

IF ( JMRIKFITIK  >#2).LQ.l)  GO  TO  8840 
IFIJMRIKFITIKP  )*2).LO.0)  GO  TO  8841 
IF(FLO.LT.O.)  GO  TO  8840 
CALL  MFSTIKFITIK). 2) 

00  TO  32b 

8840  IF I  TAU(I  )*UYlJ*l)/I-AMPY).LT. 21138)  >  GO  TO  325 

8841  AMPYsO.O 
00  TO  8831 

318  UELMSGAMCI J) +AMMY-AMPY 

322  IF l J-JHIGH)324#323»324 

323  MSsUIK) **2*V IK) **2 
ETH=tTH-AMPY*lAIXlK)*MS/2,0) 

IF  I AMPY/ ( TAUl I ) *0Y l  J ) ) -TOZONE ) 324 » 324 » 6900 
6900  KLZ=1.0 

324  GO  TO  1 690 1 » 690 1 » 32b » 690 1 #  690 1 » 690 1 #  690 1 >  326  #  326 » 
lb90l #6901 #6901 #6901 #6901 #6901 » 6901 ) »KFLAG 


6901  AMUT=AMPY*UIK) 

amvt=ampy*v(k) 

00  TO  326 

325  CONTINUE 

8831  GO  TO  1 6902 #6902 #6903 #6902 #6902  #6902 #6902 #6903# 6903# 

16902  # 6902 . 6902 » 6902  #  6902  #6902.6902)#  KFLAG 

6902  AMUT=AMPY*UIL> 

AMVT  =AMPY*VAUOVt 

IF  I AUSt AMVT) .GT • ABSl AMXIL) *V IL) ) )  AMWT=SIGNI ( AMX(L) *V<L> ) # AMVT) 

6903  UtLMsGAMC I J ) “AMP Y ♦ AMM  Y 

326  IF  I AMPY ) 327»328»  328 

327  UELET=AlX(L)+(U(L)**2»V(L)**2)/2.0  ' 

IF!  II.GT.ISR)  .OR.  IJ.LT.J5)  )  GO  TO  3327 
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vij  , 


ULLE1=HVU*MCi)+’jOLID<15*15)**2/.2. 

AMUT-O, 

AMVT=AMPY*S0L10<IS*I5) 

tTH=ETM-AMPY*  <HV»4HCU*S0Lll)<  IS*  15) **2/2. > 

GO  TO  333 
3327  CONTINUL 

AMAS=KHU(K)/KHO(L> 

AMW=  U.b3  +  0 . 233* AMA5 
IF( AMA5>0E> >3) 

I  AMW=.25+I.5*AMA5 
IF<AM#, Gt.l.)  AM*=I. 

UtKT1=AIX(K)*<U<L)**2+V<K)**2>  /2. 
UELET=AMta*DELET+(l.-AMWl*UEKTT 

IF ( JMK(KFIT (K ) ,2) .NL. 1 )  UELLT=HVH+HCII-HCP  ♦VFI/2. 

00  TO  333 

320  IF  (  AMMY ) 329*  330 *  330 

329  UELE1 =ULLtb 
00  TO  333 

330  IF(GAMC<J)  )331*332*332 

331  UtLE1=5lGC<J) 

00  TO  333 

332  UELEt=AlX(K>+<U<Kl**2+V<K>**2>/2.0 

333  6IGMU=FLEFT( J) *AMMU-AMUT 
6IGMV=YAMC<J)*AMMV-AMVT 

UELEK=GAMC<J)*SlGC(J>+AMMY*UELEB-AMPY*DELET 

FLQ=CAP<K*lJ-<DX<I+lJ-I.E-7) 

509  IF ( AMMP ) 0043*  bl 8 >8844 
0044  lF(I.EG.IMAX)  GO  TO  510 

IF ( JMK (KFIT(K)*2)»NL«1)  GO  TO  0047 
IF  ( JMH ( KF  IT  (K  +  i )  *2 )  »E(3«  I )  GO  TO  8046 
1FIFL0.LT.0.I  GO  TO  004b 
CALL  MFST(KFIT<K*I)*2) 

GO  TO  biO 
004b  GO  TO  biO 
0047  AMMP=U.U 
GO  TO  biO 

0043  1FU.EQ.II  +  I)  GO  TO  bl2 

IF(JWK(KFIT(K+i)*2).NE.l>  60  TO  0050 
IF<JMK<KFIT<K  ). 2l.EQ.il  GO  TO  0049 
IFIFLO.LT.O.)  GO  TO  0049 
CALL  MFST(KFIT(K) *2) 

GO  TO  512 

0049  IF <  TAU< I  +  I ) *DY  ( J  )/<-AMMP> .LT. 2(138)  )  60  TO  512 
0050  AMMP=0.0 
GO  TO  biO 

512  uelm=uelm-ammp*ammk) 

513  CONTINUL 

514  CONTINUL 

0020  AMUR=AMMP*U(K+I> 

AMVRsAMMP*V(K*I> 

GO  TO  525 

biO  UELM=UtLM-AMMP+AMX'K) 

521  CONTINUE 

522  GO  TO  ( 524 • 524 » 524  *  524 *  524  *  524  *  524  *  524  ► 524 * 

1 524  *  524 * 523*524  *  523*  523*  524 ) *KFL AG 

52*  *IS=U  (K ) 4*2+ V (K ) **2 

ETH=tTH-AMMP*  < AIX  <K ) +#5/2. 0 ) 

524  AMUR  =  AMMP*UHH  „ 

IF (ADS (AMUR) .GT.ABS<AMX<K)*U(K) ) )  AMUH=SIGN<  <AMX(K)*U(K) ) .AMUR) 
AMVR=AMMP*V(K) 

525  5 I GMU=S I GMU- AMUR 
5IGMV=SIGMV-AMVR 

526  TlC=0.0 

531  IF (AMMP >532*533.534 

532  UELEK=  AIX<K+ll*(U(K*i;**2+V<K+l>**2>/2. 
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too  To  535 

533  UELEK=U. 

00  TO  535 

534  UELEK=  A1X(K)+(U(K)**24V(K)**2)  /2. 

AMAS  =  KH0(M1)/HH0(K ) 

AM*  =  U.b3+0.233*AMAb 
1F(AMA5.GE..3> 

1  AMW=.2b+l.b*AM4j 
lFCAMW.bE.l.)  AM*=1. 

UEKTT=AIX(K«-m<U<K*lJ**2*V(K  >**2)/2. 

UELEH= AMW  *UELE H * ( 1 . -AMW ) *OEKTT 

IF ( JMK < KF IT I K ♦ 1 ) . 2 ) . NE . 1 > DELEK=I  )VU+HCU-HCP+UF I /2 . 

535  OELEK=  UELEK-AMMP*DELEK 

Wj=  AlX(K)4(U(K)**2+V(K)**2)/2. 

baa  eth=eth4fsk4Fsu 

540  ENK=AMX(K)*WS*UELEK*FSU*FSR 

541  U(K ) = (5ItoMU+AMX (K ) *U(K) l/DELM 
001  V(K)=(SltoMV4AMX(K)*V(K) J/OELM 
603  «IS=U(K)**24V(K)**2 

b42  AlX<K)=tNK/UELM-»S/i!.0 
b43  A*X(K)=ULLM 

KHO (K ) =AMX  (K)/(D1T'J)*TAU(1)) 

1F( AMX(K) . G  T.O.)  GO  TO  b44 
AIX(K)=U  . 

U(K>=0.0 
V(K)=0.0 
POO=U.O 
KHO(K)=0. 
b44  GAMC(J)=AKMP 
FLEFT(U)=AMUK 
YAMC(JJ=AMVK 
S1GC(J)=UELEK 
545  AMMYsAMPY 
AMMU=AMUT 
AMMVsAMVT 
UELEb=OELET 
702  CONTINUE 

toO  TO  ( 546*  546*  549*  546*  546 o  546*546*549*549*546*546 * 
154b »b4b» 546*546*546) *KFLAG 
54b  K=K41MAX 
LL=K-1MAX 
549  CONTINUE 
547  CONTINUE 

6001  CONTINUE 

6002  toO  TO  540 

9901  51=9.0033 
toO  TO  9999 

9902  51=9.0034 
9999  CALL  EU1T 

540  5UM=0.U 

UO  650  1=1* 1HAX 
UO  650  J=l* JMAX 
K=(J-1)*1MAX+1+1 

IF ( ( JMR (KF1TIK ) *2) .E0.2) • ANU. ( AMX(K) .GT.O. ) )  GO  TO  610 
GO  TO  645 
610  L=K+1MAX 

CALL  MF5T(KF1T(K) *1) 

645  SV=1./RH0(K) 

1F(JMH(KF1T(K) *2) .NE.O) 

1CALL  ES(5V* A1X(K) *THtTA(K) *P(K> *CAP(K) *GG) 

650  CONTINUE 
0001  RETURN 
END 
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Ot  ►OK  FLAG.  FLAO/FJ 

SUUKOUT INL  FLAGIKFLAGj  JL0N»  JHItill) 

DIMENSION 

1 U ( 12U0 ) »  V( 1200)#  AHX ( 1200 ) *  A1XI1200)'  P(12U0). 

2TIILT A ( 12UU ) *  NHOI12UU)'  F1OUTU20U),  CAP(1200),  KFITU200J' 

3PUL(2bb)'INi(50)'N2(b0),N3(b0)'TABLM(b0) » 

4UX(52),  X(53)  *  XX(54).  OY(IUU),  Y(100)»  YYU01)# 

bTAO(lb) ,  AMK(lb) »  PM  15) »  GK(lb)'  2(150),  IZ(lbU). 

Of AU(b2) *  PL (200) *  PK(20U)»  UL(200)'  UR(200). 

7FLEFT ( 100 ) » YAMC ( 100 ) * SIfaC ( lOC  >  .GAMC ( 100) * 
Bo(b0).50LlU(400)»TLMP(U)»HLAD(12) 


COMMON 

2 

'XX 

'UR 

.PR 

'THETA 

»  YY 

COMMON 

A10 

'  A1 X 

'AM 

'AMO 

» AMX 

'AREA 

COMMON 

U1G 

'BOUNCE 

'DDXN 

'UDVK 

'DVK 

'DX 

COMMON 

UY 

*E 

»F0 

»FS 

»FX 

'OUT 

COMMON 

P 

'P ABOVE 

'PBLO 

'PIOTS 

'PPAIIOV 

»PRR 

COMMON 

PUL 

'OUT 

'  KC 

'REZ 

'RHO 

'NL 

COMMON 

HH'SIG'GOUOFL 'SNITCH 

'TABLM'TAU 

COMMON 

TAUOTS 

'TAUUTX 

♦U 

'UK 

'URR 

'UT 

COMMON 

uu 

iUUU 

•  UTEF 

'UVMAX 

'V 

' VABOVL 

COMMON 

VOLO 

'VEL 

'VK 

.  VT 

»VTEF 

'VV 

COMMON 

VVAUOV 

' VVBLO 

'  N2 

♦  N3 

» NPS 

'NS 

COMMON 

NSA 

'NSB 

'NSC 

'XL 

*  XLF 

'XN 

COMMON 

XK 

.yl 

'  YLN 

»YN 

» YU 

.  ZMAX 

COMMON 

1 

rll 

'IN 

»IR 

»2NS 

.  INSA 

COMMON 

IWSU 

.  I  NSC 

'INI 

»  J 

'JN 

»JP 

COMMON 

JK 

'K 

'KN 

»KP  • 

'KR 

»KRM 

COMMON 

L 

♦M 

»MA 

•  MB 

»MC 

'MO 

COMMON 

ML 

'M2 

♦N 

'NK 

'NKMMX 

'NK1 

COMMON 

NO 

'NR 

'6 

'SOLID 

'TEMP 

COMMON 

FIOUT 

'CAP 

*KF1T 

' 1SENO 

'  1GOTO 

'HEAD 

LOU 

1  V 

A  L 

E  N 

C  E 

OLOU1 VALENCE 

( Z» 12'PROB) ' 

(2(2) .CYCLE). 

(Z(3) »DT) » 

1(2(4). PRINTS) » 

(Z(b) . 

PR1NTL). 

(Z(b) . OUMPT7) > 

( Z ( 7 ) .CSTOP) . 

2(2(8). P1UY). 

(Z(9).TMZ). 

(2(10) 'SCYCLE) . 

12(111 

.SPROB), 

3(2(12)  .GAMX) ' 

( Z ( 13) 

.ETH). 

(Z ( 14 ) .FFA ) » 

(2(15) 

»FFB) » 

4 (Z( lb) . TMDZ ) » 

(2(17) 

.TMXZ). 

(Z( 18) ' XMAX ) ' 

( Z( 19) 

' YXMAX) . 

b(2(2U) ' TYMAX) » 

(Z(21) 

'  AMDM)  . 

(2(22) ' AMXM) . 

(2(23) 

»DNN) . 

b(Z(24)  »L)MIN)  ' 

(Z(2b) 

'FEFI » 

(ZI26) .DTNA) ' 

(2(27) 

»CVIS). 

7 ( Z ( 28 ) »NPR) » 

(2(29) 

»NPRI ) » 

(Z(30).NC). 

(2(31) 

» NPC ) . 

8(2(32) .NRC)» 

(2(33) 

.  1MAX) . 

( Z ( 34  > ' IMAXA) ' 

(Z(35) 

' JMAX) . 

9(Z(3b) » JMAXA) » 

(2(37) 

'KMAX) ' 

(Z(38) .KMAXA) . 

(Z(39) 

»NMAX) 

ObUUI VALENCE 

( Z ( 40 ) 

.NO) ' 

( Z ( 4 1 ) .KDT) » 

(Z(42> 

. IXMAX) ' 

1 (2(43) 'NOO) . 

( Z ( 44 ) 

.  NOPH )  ' 

(Z(45) .N1MAX). 

( Z (46) 

.NJMAX)  ' 

2(2(47) 'll) . 

( Z ( 48 ) 

.12)' 

(2(49) . 13) . 

(Z(50) 

.14). 

3(Z(51)'N1)' 

(Z(b2) 

»N2)  ' 

(Z(53> .N3> ' 

( Z( 54) 

»N4)  . 

4(z;5b)»Nb)» 

(Z(b6) 

.  N6) . 

(2(57). N7). 

<  Z ( 58 ) 

»N8) » 

b(Z(59),N9), 

(Z(bO) 

. N10) . 

(Z(61).N11). 

(2(62) 

»NRM) . 

b ( Z (63) ' TRAD) ' 

(Z(b4) 

»XNRG)» 

(Z(65).SN).  • 

(2(66) 

»DXN)  t 

7(2(67). RAUER) • 

(Z(b8) 

.RADET). 

<  Z  <  69  > 'RAOEB) . 

(2(70) 

.DTRAD) » 

8(Z ( 71 ) .RE/FCT ) . 

( Z ( 72 ) 

.RSTOP) . 

(Z( 73) .SHELL). 

(Z(74> 

.BBOUNO) 

9(Z(7b) »T OZONE) . 

( Z ( 76 ) 

.ECK). 

(Z ( 771 . SBOUND) . 

( Z (78) 

'Xl> 

UbOUl VALENCE 

(Z(79) 

»X2)  » 

(2(80), Yl). 

(Z(81> 

» Y  2 ) ' 

1 (2(62) 'CABLN) . 

(Z(83) 

.VISC). 

(Z(84) .T) o 

(Z(85) 

.GMAX). 

2 ( Z ( 8b) ' NSGD) ' 

(2(87) 

.  nsgx  ) . 

(Z(88) .GMADR) ' 

( Z ( 89 ) 

•GMAXR) ' 

3(2(90) »S1) * 

( Z ( 91 ) 

»S2). 

(2(92), S3). 

(Z(93) 

'S4). 

4(2(94) »Sb) ' 

,2(95) 

tS6). 

(Z(9*)'S7). 

(Z(97) 

»S8) . 

b(Z(9u) . S9) ' 

( Z ( 99 ) 

.S10) 

UbOUl VALENCE 

(2(100). HVb). 

(Z(lOl).HCB), 

(Z(102).CU). 

1(2(103) .SVS) ' 

(Z ( 104 ) ' ATOM) ' 

(Z( 105) ,CV) ' 

( Z ( 106) »GV) » 

2(2(107) 'SUMFb)' 

( Z ( 108) 'BETA). 

(Z(109) ' ALCO) , 

(Z(llO)'ANN). 

u  u  u  u 
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3<Zdll)»EZEH0)>  (2(112)  »PW)  #  (Z(  113)  .CAPS)  *  ( Z(  114)  »HNU>  » 

3(2dlb).COL>.  (Z(  116)  »SCH)  *  (Z( 117) » IbH) »  (Z(  lift)  »SCl>H)  » 

4(2(119) .  AHN) »  (Z(120) »0TH).  (Z ( 121 ) » lit) .  (ZU22).JH). 

5(2(123) »UTC) «  (Z(124).1C).  (Z( 12b) » JC ) »  (Z( 12b) »RFT) ♦ 

X(Z(  127)  .CUUT)  *  (Z(  128)  »HCP) »  (2(129)»HH)*  (Z(130)>CO)» 

b(2(131> »J1) »  (2(132). J2)»  (Z(133).J3).  (Z(134),J4‘» 

7(2(135) » Jb) »  (2(136). J6).  CZ« 138) .SVMAX) ♦ 

8(2(139) .FRCUTC) 

OEUU I VALENCE  (Z(140)»VAPE)»  ( Z ( 1 4 1 ) .HADE) »  (Z(142) .CNOE) * 

1(2(143) .SCHE) »  (Z( 144 ) # IV) *  (2(145). JV).  (Z(146)#IU). 

2(2(147). JU>.  (Z( 148) .DTVF ) »  (Z< 149) »DTUF ) *  <Z(150)#tll) 

0E6UI VALENCE  (XX(2) .X(l) ) »  (UR.UL.FLEFT) »  (UR(100) »YAMC) » 

l(PRdOO)»SlGC>»  ( PH » PL » 6AMC  >  *  (OKE.  THETA)  »  (UR.TAO). 

2(UH(lb)  » AMK)  »  (UK( 31) »PK) >  (UR  (46)  .OK)  »  (YY(2).Y(1)) 


COMMON 
TtST  RIGHT  BOUNDARY. 
lFd.EO.Il+1)  60  TO  20 
1FI1.L6.12)  60  TO  40 
C  TEST  LEFT  BOUNOARY. 

IF(I.b6.1MAX)  GO  TO  60 
IFd.LT.12)  GO  TO  40 
KFLAGsl 

IF ( J.L6. JLOM)KFLAG=b 
IF(J.E6.JH1GH)KFLAG=7 
RETURN 
20  KFLAG=2 

IF ( J . EQ . JL06 ) KFL AG=1 1 
1F( J.EQ. JH16H)KFLAG-B 
RETURN 
40  KFL AGs 1 

IF ( J.Ed.  JL0N)KF!.A£s5 
IF(J.E0.JHIGH)KFLAG=3 

IF (  (1.E6.12) . ANU. ( 12.E6.1MAX)  )  GO  TO  70 
RETURN 
60  KFLAb=12 

£F(J.E0«JH1GH)KFLAG=14 
65  lFIU.EO. JLOtf )KFLAG=10 
RETURN 
70  KFLAGS12 

IF ( J.E6. JH1GH)  KFLAGS9 

GO  TO  6b 

ENU 
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ul 

c 

c 


FOR  UJLOW.  DdLOm/FJ 
bUBROUTINt  UdLOWIJLOW. JlllfaH) 

dimlnsion 

UlMLNSION 

I'll  i  joy;  a  V ( 1200 )  .  AMX(1200)  »  MX(I200)i 

2THtTA(12U0) »  RHO(1200)»  FIOUT(1200)»  CAP(1200). 

dPUL'ZbbNIwMbO^WZ^Oj.WJWn.TABLMjbO). 

4UX(52) *  X(53>.  XX  54  .  01  100)*  1  100 

AMK(lb).  PK(15)*  OK (15).  2(150). 

bTAU(S2)  *  PL(200>»  PK(200)»  ULJ200J#  UR(200). 

7FLEFT(10U) »  VAMC(IOO) .SIGC ( 100)  »liAMC(  100) * 


r( 1200) . 
KFIT ( 1200) » 

YY( 101) . 
IZ(lbO). 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


•  XX 

•  AIX 

»uour< 

•  £ 

•  PAUL 

•  OUT 


TAUOTS  »TAUOTX  »U 


VVAUOV  • VVBLO 
MSA  »WSB 

XR  »YL 

1  *11 

IWSU  »IWSC 

OR  *K 

L  *M 

ML  »MZ 

NO  *NR 

FIOUT  .CAP 


•  OR 

.PR 

.theta 

.YY 

.AM 

.AMO 

.  AMX 

.AREA 

•  OOXN 

.  OOVK 

.DVK 

.UX 

.FD 

.FS 

.FX 

.OUT 

.PUIO 

.PIDTS 

•PPAHOV 

.PRR 

•  HC 

•  REZ 

•  RHO 

.RL 

SWITCH 

i  »u 

.TAULM.TAIJ 
.UK  »URR 

.UT 

.UTEF 

» UVMAX 

.V 

.V ABOVE 

.VK 

.VT 

» VTEF 

.VV 

.M2 

»W3 

.WPS 

.WS 

.WSC 

.XL 

.XLF 

.XN 

.  YLW 

.YN  - 

.YU 

•  ZMAX 

.IN 

.IR 

.IWS 

.  IWSA 

•  1W1 

.  d 

.JN 

»JP 

.KN 

.KP 

.KR 

•  KRM 

.MA 

•  MB 

.MC 

.MO 

»N 

.NK 

.NKMAX 

.NK1 

.6 

.KFIT 

.SOLID 
. ISENO 

.TEMP 
. I GOTO 

.HEAD 

C 


OtUU I VALENCE 
1(Z(4). PRINTS). 
2(Z(8) .PIOY) . 
3(2(12) .GAMX) . 
4(Z(lt>).TM0Z). 
5(2(20) .TYMAX) . 
6(Z(24) »OMIN) . 
7(Z(2tt) .NPR) . 
B(Z(32) .NHC) . 
9(Z(3b>. JMAXA). 
OLOU1 VALENCE 
1 (2(43) . NOO) . 
2(2(47) .  ID  . 
3(2(51). Nl>. 
4(Z(55).N5). 
b(Z(59) .N9) » 
t (2(63). TRAD). 
7(2(67). RAOER). 
tt(2(71 ) .RLZFCT) » 
9(Z(7b) .T020NE) . 
OtQU I VALENCE 
1 (Z(82) .CAULN) . 
2(2(86). WSGD). 
3(Z(90).S1)» 
4(2(94) .55) . 
5(Z(98)»S9)e 

OEGUI VALENCE 


U  I  V  A 

(Z.IZ.PROB). 

(Z(b).PRINTL). 

(Z(9).TM2). 

( Z ( 1 3 ) »ETH) . 
(2(17). TMX2). 
(Z(21) . AMOM) . 
(Z(2 5)*FEF). 

( Z  ( 29 ) .  NPR  I ) . 

( Z ( 33 >  * IMAX) . 
(Z(37).KMAX). 
(2(40 .NO) . 
(2(44). NOPR). 
(Z(4S)i 12). 
(Z(b2).N2). 
(Z(b6).N6). 
(Z(bO) .NiO) . 
(Z(b4) . XNRG) . 
(Z(bB).RADET). 
(2(72) .RSTOP) . 
(Z(76).ECK). 
(Z(79).X2). 
(Z(B3) .VISC). 
(Z(B7) . WSGX) . 
(Z(91).S2). 
(2(95). S6). 
(Z(99).S10) 

(Z(IOO).MVB). 


L  E  N  C 

(2(2). CYCLE). 
(2(6) .DUMPT7) . 
(Z(IO).SCYCLE). 
(2(14) »FFA) . 
(Z(IS).XMAX). 
(Z(22> . AMXM) . 
(2(26). DTNA). 
(2(30). NC>. 

( Z ( 34  > . IMAXA) . 
(2(38) .KMAXA) . 
(Z(41).K0T). 

( Z ( 45) .NIMAX) . 
(2(49) . 13) » 
(Z(53).N3). 
(Z(57)»N7)» 
(2(61). Nil). 
(Z(65).SN). 
(2(69) .RAOEB) . 
(Z( 73) .SHELL). 
(Z(77) .SBOUNO) . 
(Z(SO).Yl). 
(2(84). T). 
(Z(BB).GMADR). 
(2(92) .S3) » 
(Z(96).S7). 


(2(101). HCO). 


E 

(2(3). UT). 

(Z(7) .CSTOP) . 
(Z(ll).SPROB). 
(Z(15).FFB). 
(Z(19).TXMAX). 
(2(23) »DNN)» 
(2(27). CV1S). 
(Z(31).NPC). 
12(35) • JMAX) . 
(2(39). NMAX) 
(2(42) .IXMAX) . 
(Z(46) .NJMAX) . 
(2(50). 14). 
(2(54). N4). 
(Z(5B).NB). 

( Z ( 62 ) .NRM) . 
(Z(66).DXN). 

( Z  <  70 ) .OTRAO) . 
(2(74). BBOUND ) • 
(2(78). XI) 
(Z(A1).Y2). 
(2(85) .6MAX) . 
(2(89) .6MAXR) . 
(2(93) »S4) . 
(2(97). SB). 


(Z( 102) . CB) . 
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OLUUIVALLNU. 


I  4  (  1 U I J )  #MVlJ )  «  *MtM)  • 


(/(102)«LM>» 


C 


KZdUJdbVS)* 
2(Z(107).bUM)-t)  • 
3<Zdlb).COt>* 
4(Z(12U).UTH). 
b(Z(lt4).IC>* 
b(Z(131)>Jl)> 
7(ZU3b)*Jb>. 
«(Z<  USM.FKCUIC) 
UtJUIV ALtNCt 
l (Z( 143) «bCKL) » 
2(Z( 147) *  JU) • 

OtUU I V  ALtNC t 
l  (MR(  1U0)  »SIOC  >  • 
2(UM(lb) # AMK) • 


(Z(108)«UtTA)« 
(Z( lib) *SCK) * 
(Z(12l)f 1H)» 
<Zd2b).JC)» 
(Z(132).J2)» 
(Zd3b)#J6>. 

( Z  ( 140)  •  VAl’t  >  * 
(Z( 144) # I V) * 
<Z(14S)»UTVf-)» 

(XX(2)»X(l))f 
(PK*PL*OAMC )  * 
(UN(31) *PK) * 


(Z( 10b) *CV) * 
(Z( 109) # ALCO) * 
(Z (117) » IbH ) > 
(Z( 122). JM)* 

(ZU33)#J3>. 


(Z  ( 141 )  »HAl)t  )  • 
(Z( 14b) « JV>  * 
(Z( 14V) »DTUF )  * 

(UH#UL.FLtKT). 
(UKt* THETA) * 
(UR(4b) #QK) * 


(ZdOb).faV). 

( Z ( 1 IH) «SCOK) > 
(/  ( 123) #UTC) » 

(7 ( 134) * J4) * 
(7(138) tSVMAX )  * 

(7(142) #CNUt) * 
(7( 14b) * IU) » 

( 7 ( 150) « 1 1 1 ) 

(UR(1U0)#V AMC ) * 

(UH.TAU)# 

(TV(2).Yll>) 


COMMON 

lF(I.Lt. 12)  00  ro  20 
JLOW=l 
JH16HSJMAX 
00  TO  10U 
20  JLOMsl 
JHIGM=Jb 
100  KtTUKN 
LUO 
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g|  EON  LlbLA,  Lllltx/f  J 

iUUKUUTlWE  ClIltKHAU.t*  IHA.H.ZUAK.Ob) 

COMMON  2(90) 
tviUI VALLNCt.  tZC'AOl 

C«*«**f»LACt  UA I A  St  ATEMtNf  S  WtOOUCEU  UT  MMObHAM  OLSt  HEW  ♦♦♦**♦ 

UATA  TAUM.O.TAUZ.tZ.Vl.OZ/ 

1  b.OUOE+lO.  l. 563012.  5.000002.  1.5830  09.  7.980MU0.  1.1260  03/ 
UATA  TAULZ*ELZ*5.  T*)'Hl/ 

1  -i.301t*0*  9.2.  2.0001 »0.  H.OOUOO.  5.244  09/ 

UATA  NN.MM.U.l2.(3«I4.Ib.  lb.  17*18/ 

1  2b.  2b.  t.  1.  1.  1.  1.  i.  0.  0/ 

UIMtNblUN  Zb(2b.2b).tILH(2b.2S) 
tOUlVALENCt  (Zb.Zbl).  (ElLN.LlLNl) 

COMMON/ t SI /ZU  1(54) 

UATA  2U  1/ 

1  2.200E-10*  3.912E-1U.  o.9b/E-tO*  1.23/E-09.  2,200009,  3.9121-09. 

2  b.957t-09.  1.237E-0O.  2.200E-06#  3.912008*  6.9S7O0B.  1.23/t-07. 

3  2.200E-07.  3.911L-07.  b.9bbt-07.  1.23bt-0b*  2,1971-06.  3.904t-00. 

4  b.930L-Ub.  1.229E-05.  2.l73t-0b*  3.828E-0S*  b. 694005.  l.lbbE-04. 

b  1.9S7E-04.  3.911E-0O.  6.956000*  1.2.'<7E-07*  2.2001-07.  3.911007. 

b  O.955E-07.  l.*37t-0b»  2.196t-Qb.  3.907006.  6.941E-06.  1.232t-0b. 

7  2. 104L-05.  3.8b3t-0b*  b.003E-05.  1.109E-04.  2.054E-04.  3.475E-04. 

b  S.694E-04.  9. 132L-04 .  1.382E-03*  1.964003.  2.722E-03.  3.S53E-03* 

9  4.4bbOOJ»  b.399t-03*  2.001E-0b*  3.bb3L-0b.  6.333E-06.  I.l2b00b/ 

COMMON/fcbT /Zrt  2(54) 

UATA  tU  2/ 

1  1. 997O0b.  3.542E-05.  6.26bO0b»  t. 1042-04.  1.9320  04  .  3.342E-04. 

2  b. 669004  .  9.331004.  1.4990  03.  2.279E-03*  3.2B4O03.  4.405E-03* 

3  b.R9bL-03.  7.394E-03.  6.953t-03»  I.0b4002»  1.2170  02.  1.37SE-02* 

4  1.529L-02*  1.679002.  1.023002  .  4.031E-05.  7,149005.  1.2b3E-04. 

b  2 .223004.  3.079004.  b.b77O04.  1.1240  03.  1.047E-03.  2.903E-03. 

b  4.337003.  6.138L-03.  0.283003.  1.064E-02.  1.312E-02.  l.bbbE-02. 

7  1.820002.  2.07bO02.  2.310E-02.  2.552E-D2*  2.776E-02.  2.989E-02. 

0  3.192002.  3.304002.  3.b67O02  .  3.7390  02  .  3.950E-04.  b.910E-04» 

9  1.109003.  1 ,99o003»  3.2640  03  .  5.09bt-03.  7.557E-03.  1.060E-02/ 

COMMON/EbT /Zb  3(b4) 

UATA  2b  3/ 

1  1.416002.  1.801002  .  2.200002  .  2.601002  .  2.99bE-02.  3.302E-02. 

2  3.747002  .  4,093002  .  4.419002  .  4.72bE-02.  5.013E-02.  5.203E-02. 

3  b.53bO02.  b.772L-02.  b. 9940  02.  6.203E-02.  6.399E-02.  2.214E-03. 

4  3.6970  03.  5.907003  .  9.2300  03.  1.348E-02.  1.861E-02.  2.446E-02. 

b  3. 061002.  3.6B5E-02.  4.29OL-02.  4.887002.  5.446E-02.  b. 981002. 
b  b. 471002.  b. 927  0  02  .  7.349  0  02  .  7.741E-02.  B.103E-02.  8.439E-02. 

7  0.751002  .  9.041002.  9.3100  02.  9.5blE-02»  9.795E-02.  1.001E-01. 

0  7.93bE-03.  1.251E-02.  1.867002.  2.629E-02.  3.501E-02.  4.446E-02. 

9  5.399E-02*  6.331E-02.  7.220E-02.  8.052E-02.  B.R23E-02.  9.533E-02/ 

COMMON/EST/ZU  4(54) 

UATA  2U  4/ 

1  It  016E-01*  1.079E-01.  1. 134E-01 .  1.104E-01.  1.230E-01.  1.272E-01. 

2  1.31 IE-01 .  1 . 34bE-01 .  1.379E-01.  1.410E-01*  1.43BE-01.  1.464E-01. 

3  1.409E-01.  2.062E-02.  3.05bE-02»  4,2blfc-02.  5.613E-02.  7.047E-02. 

4  0.4bbE-02.  9.826E-02.  1.110E-01.  1.227E-01*  1.334F-01.  1.431E-01. 

5  1.510001.  1.597E-01.  1.660E-01.  1.733E-01.  1.792E-01.  1.B45E-01. 

b  1.B94E-01.  1.930E-01.  1.979001.  2.016E-01.  2.051E-01.  2.083E-01. 

7  2, 112E-01.  2.140E-01.  4.294E-02.  6.053E-02.  B.040E-02.  1.013E-01. 

0  1.223001*  1.421E-01.  1.605E-01.  1.772E-01.  1.922E-01.  2.057E-01. 

9  2.177E-01.  2.284E-01.  2.3BOE-01.  2.4bbE-01.  2.542E-01.  2.612E-01/ 

COMMON/E ST/ Zb  5(54) 

UATA  2B  b/ 

1  2.674E-01.  2.731E-01.  2.783E-01.  2.830E-01*  2.873E-01.  2.913E-01. 

2  2. 950E-01 .  2.983E-01.  3.015E-01.  7.700E-02.  1.047E-01.  1.346E-01. 

3  1.647E-01.  1 .936E-01.  2.207001.  2.450E-01.  2,6b7E-0l.  2.859E-01. 

4  3.029E-01 .  3. 170E-01 .  3.310E-01.  3.426E-01.  3.532E-01.  3.624E-01. 

b  3.7JJ8L-01*  3.782E-01.  3.850E-01.  3.911E-01.  3.96bO01*  4.01bE-0l. 

b  4.061E-01.  4, 103E-01 .  4. 14bE-0,\ .  4.1B2E-01.  1.244E-0).  J.652E-01. 
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7  2.O70b-Ul*  2.497t-0l 
0  4#  lUOb-Ul  *  4.  ,3l0fc.-Ul 
9  b.054b-0l*  b.l4bt-0l 
COMMON/tbT/ZH  6  (54) 
DATA  Zb  0/ 

1  b.40lt-ul*  b.530t-Ul 

2  2.434t-0l*  3.02UE-U1 

3  b.34bt-01»  b.624t-0l 

4  &,499t-0l*  b.6l3t-0l 
b  7.026t-0l*  7.O07E-U1 
b  2.629t-0l*  3.39bt-01 
7  t>.593t-0l *  6.9bUt-Ul  i 
0  0.1l7t-Ul*  0.2b2t-Ul 
9  6.777L-01*  0.051t-Ul, 

COMMON/tST/Zb  7(54) 
DATA  Zb  7/ 

1  9. 13bb-01 *  3.b33t-Uli 

2  7.89bt-0l*  b.404t-01i 

3  9.929t-0i*  1*012E  OUi 

4  1.07bt  UO  >  l.OBbt  OUi 
b  l.lZUt  UO*  1.12bt  UOi 
b  9.2U6b-0l*  9.913t-Ul« 
7  l.l9bt  UU*  1.22Ut  UU< 
0  1 • 302b  00*  1.313t  00* 
9  1.3bbt  UO*  1.361b  00* 

COMMON/EST/Zb  0(47) 
DATA  Zb  0/ 

1  1.04bt  00*  1.144E  00* 

2  1.422b  00*  1.453b  00* 

3  1.560b  00*  1.575E  00* 

4  1.620L  00*  1.636E  00* 
b  1.149b  00*  1.29ut  00* 
b  1 . 60bb  00*  1.73UE  00* 
7  1.872b  00*  1.890b  00* 
0  1 . 9b0t  00*  1.960b  00* 

COMMON/EST/Zb  9(29) 
bATA  Zb  9/ 

b  9.721E-1* 

b  1.029t*0*  1.910E+O* 

7  2. 10OE+O  *  2.211E40* 

0  2.320E+0 »  2.335E+0* 

9  2.391t+0*  2.4U1E+U* 

COMMON/bST/ZblO (54) 
OATA  ZblO/ 

1  2.103E+0*  2.229E+0* 

2  2.504E+O*  2i 623E+0* 

3  2.754b+0*  2.772E+0* 

4  2.039t*O*  2>0bbE+U* 

5  2»373b+0*  2.55UE+U* 

b  3»U03b+0*  3. 054E+U * 

7  3.223E+0*  3.246E+0* 

0  3.331E+0*  3.34 3E+U* 

9  2.600E*0*  2.834E+0* 

COMMON/tST/Zbl 1 (b4) 
OATA  Zbll/ 

1  3.461E+0 »  3.527E*0t 

2  3»739t+U*  3.7b0E+U* 

3  3.071E4O*  3»G06b+U* 

4  2.746t+0*  3.O02E+O. 

b  3.938E+0*  4.025E+0* 

6  4.3O1L+0*  4.337E4U* 

7  4.46bt+0*  4.405E+U* 

8  2.7BOt+0*  3.256E+0* 

9  4.449E+0*  4.566E+U* 

C0MM0N/EST/ZB12 ( b4 ) 


2.891E-01* 
4,S0bt-01* 
b.22t»t-Ul  * 


b.57bt-01* 
3.b80b-Ul* 
b.05bb-Ol* 
b.71bt-01* 
7. 14Zt-0l * 
4.174E-01* 
7,272t-01 * 
b.390b-0l» 
0.9l0b-Ol • 


4.bllb-01* 
b.810b-Ol* 
1 • 02 JE  00* 
1.093b  00* 
4.54UE-01* 
1.049b  00* 
1.241b  00* 
1.323E  00* 
1.367b  00* 


1.224b  00* 
1.480E  00* 
1.580E  00* 
1.644E  00* 
1.402b  00* 
1.760E  00* 
1.907E  00* 
1.977t  00* 


3.2b0b-01 • 
4,b71b-0l* 
5.299E-01* 


b.61bb-0 1  * 
4. 117t-0l* 
6,0b2t-01* 
6.8U6b-0l« 
7 . 192t-0l * 
4,923t-01* 
7 . 534b-01 * 
8.b04t”01 * 
8.979E-01* 


b.bb5t-01. 
9.160E-O1* 
1.042E  00* 
1.101E  00* 
5.919E-01* 
1.096E  00* 
1.259b  00* 
1.332E  00* 
6.232E-01* 


1.209b  00* 
1.504b  00* 
1.600E  po* 
1.650E  00* 
1.492E  00* 
1.799E  00. 
1.922E  00* 
1.905b  00* 


3.570f-0l 

4.8I7E-01 

5.360t-0l 


5.654E-01 
4.595E-01 
6.218E-01 
6.087E-O1 
7.239E-01 
5.592E-01 
7, 758E-01 
8.605E-01 
9, 035t-0l 


6.501E-01 
9.463E-01 
1.055E  00 
1.108E  00 
7.244E-01 
1.135E  00 
1.275E  00 
1.340E  00 i 
7.683E-0)  i 


1.341E  00* 
1.525E  00. 
1.611E  00* 
8.692E-01* 
1.569E  00* 

1.B27E  00* 
1.935E  00* 
1.993E  00/ 


1.216E+0* 

1.991E+0* 

2.239E+0* 

2.340E4O* 

1.217E+0* 


2.331E+0* 

2.6S6E40* 

2.708E4O* 

2.859E+0* 

2.601E+O* 

3.097E+0* 

3.2b6E+0* 

3.355E+0* 

3,019E*0. 


3.502E+O* 

3.793E+0* 

3.900E+0* 

3.344E+0* 

4.O90E+O* 

4.369E+0* 

4.502E*0* 

3.627t>0* 

4,66lE*0* 


1.415E+0* 

2.051E+0* 

2.263E+0* 

2.361E+0* 

1.497E*0* 


2.415E+0* 
2.685E+0* 
2.803E40* 
1 .505E+0* 
2.786E+0* 
3.135E+0* 
3.285E+0* 
3.366E*0* 
3.164E40* 


3.630E+0* 
3.815E+0* 
3.913E+0* 
3.540E+O. 
4.161E40* 
4.397E40* 
4.510E*O* 
3.909E+0* 
4.743E+0  » 


1.5B0E+0* 

2.100E40* 

2.284E+0* 

2.372E+0* 

1.743E40* 


2.485E+0. 
2.711E+0. 
2.817E+ 0. 
1.854E+0* 

2.B72E+0* 
3.168E40* 
3.301E+0* 
1.870E+0* 
3.2B4E+0* 


3.672E+0* 
3.836E+0* 
3.925E+0* 
3.706E+0* 
4.214E+0* 
4.422E+0* 
4.532E+0* 
4. 130E+ 0. 
4.812E*0. 


3.85UL-U1* 

4.948E-01* 

5.427E-01/ 


1 . 863E-01 * 
5.017E-01* 
6. 370E-U1 * 
6.960E-01* 
7.281E-01* 
6.139E-01* 
7.950E-01* 
0.695E-O1* 
9.087E-01/ 


7.2b8b-01* 
9.714E-01* 
1.066E  00* 
1.114E  00* 
8.329E-01* 
1.160E  00* 
1.289E  00* 
1.348E  00* 
9.209E-01/ 


1.386E  00* 
1.544E  00* 
1.619E  00* 
9.739E-01* 
1.633E  00* 
1.851E  00* 
1.947E  00* 


1.71SE40* 

2.143E+0* 

2.303E+0* 

2.382E+0* 

1.944E+0/ 


2.53BE*0* 
2.733E+0* 
2.B23E+0* 
2. 143E+0* 
2.94 3E*0* 
3.197E+0* 
3.317E40* 
2.278E+0 * 
3.381E+0/ 


3.708E+0* 

3.854E+0* 

2.303E+0. 

3.B34E+0* 

4.261E+0* 

4,445E*0* 

4.545E+0* 

4.30VE+0. 

4.872E+0/ 
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UATA  ZD 12/ 

1  4.924L+U.  4.9b9E+0»  6.0U9E+U*  b.04bE+0*  b.07bl_+0.  b.l0bt+0. 

2  b.l3UL+U*  b.  lb3E+U .  b.l74t+U.  b.l94t+0*  b.211L+0.  b.22A£+0. 

3  b.243L+0.  3.3U7E+U.  3.828E+U.  4.2SUE+0*  4.544t+0*  4.789E+0* 

4  4.98bt+U»  b.lVjt+U*  b.274t+U»  b.383t+0*  5.474L+0.  5.536E+0* 

b  b.bB2L+U»  b.623E+U»  b.6‘j9t  +  U»  b.b92t+0*  b. 7211+0*  5.748E+0* 

b  b«772t+U*  b»794E+U*  b.814E+U*  b.833E+0*  b.BbOt+O*  S.B6bL+0* 

7  b.HBOE+O.  S*894t +0*  3.9U1E+U.  4.474E+0*  4.9211+0*  b.2b7E+0* 

8  b.b2bt+Ui  b.bbUt+0*  b.7b7E+0*  b.8b9E+0*  5.939L+0*  b.U07E+0* 

9  b.Ub7t+U*  b. 119L+U*  b.lbbE+0*  b.207E+0*  6.244K+0*  b.277t+0/ 

COMMQN/EbT /ZH 1 3 (  9) 

UATA  2U13/ 

1  b.3UbE+0  *  6.334E+U*  o.3‘j8t+0.  6.331E+0.  6.402E  +  0*  b.419E+0* 

2  b.437t+U*  b.4b3E+U*  b.4b8E+U/ 


COMMON/tST/EILN  l(b4) 

UATA  tILN  1/ 

1- 1 . 9blE  Ul*-1.9blt  Ul.-1.961E  01 

2- 1.672E  Ul. -1.614*.  Ul*-l.SbbE  01 

3- 1.32bE  Ul.-l.2bBE  01 *-l .210E  01 

4- 9.802E  U0*-9.229t  UU.~U.659E  00 

5- b.4blt  00*-1.499t  0l.-l.440E  01 
b-1.210E  0l*-1.153E  01.-l.09bE  01 

7- 8.bb4E  00*— 8. 084E  OU.-7.blbE  00 

8- b. 39 3e  00.-4. 921E  00*-4.b07E  00 

9- 3.33bE  00.-3.144E  00.-1.104E  01 
common/esi /eiln  2<b4> 

UATA  E1LN  2/ 

1- 8.743E  00.-8.171E  00*-7.b00£  00 

2- b. 398L  O0.-4.899E  00  -4.42bE  00 

3- 3.0bbE  00.-2.829E  0U.-2.638E  00 

4- 2.103E  00.-2.009E  00.-1.927E  00 
b-b.334E  OO.-b. 777E  00.-b.234E  00 
b-3.3b3E  00.-3. 016E  00.-2.71bE  00 

7- 1.929E  00.-1. 797E  00.-1.687E  00 

8- 1.3b7E  00— 1.308E  00.-l.25bE  00 

9- 4«6b7E  00.-4.139E  00.-3.647E  00 
COMMON/EST/tlLN  3<b4) 

UATA  El UN  3/ 

1- 2.179E  00.-1.939E  00.-1.739E  00 

2 - 1.2U7E  00.-1.118E  00.-1.042E  00 

3- 8. l**3t— U1  .-7.744E— 01 . -7. 36b£-01 

4- 3.523E  00.-3.040E  00.-2.608E  00 

5- 1.409E  00.-1.223E  00.-1.069E  00 
b-6.601E-0l*-b.921E-01 *-b.329t-01 

7- 3.583t-01 .-3.257E-01.-2.964E-01 

8- 2. 7b9E  00.-2.303E  00.-l.903t  00 

9- 8.412t-01.-b.819t-01.-b.50bE-0l 
COMMON/EST/tILN  4ib4> 

UATA  tILN  4/ 

1-2 . 0b7t-01 . -1 . 484E-0 1 . -9. 90  bt-02 

2  4.5b3E-02.  7.246L-02.  9.660E-02 

3  1 . 729t-0 1 . -1 . 804E  00.-1.411E  00 
4-3.91bE-01 .-2.424E-01 .-1 .20bE-01 
b  1.92bt— 01.  2.432E-01.  2.870E-01 
b  4,13bt-01.  4.368E-01*  4.b7bE-0i 
7  b.229t-01 .  5.358E-01.-1.070E  00 
8-2«38bE-02.  1.265L-01.  2.481E-01 
9  b. 529E-01 .  6.010E-01 .  b.420E-01 

COMMON/EST/E1LN  5(b4) 

UATA  E1UN  5/ 

1  7.588E-01 .  7.799E-01 .  7.98bE-01 

2  8«5b8E  *01.  8.682E-01 .  8.786E-01 

3  2.742E-01 .  4.359L-01.  b.668E-01 

4  8.B32E-01.  9.314E-01 .  9.722E-01 
b  l.OBbt  00.  l.lObE  00*  1.123E  00 


-1.B22E  01.-1.782E  01.-1.731E  01. 
-1.498U  01.-1.440E  0l.-l.3B3E  01. 
-1.1 b3E  01.-1.095E  01.-1.03BE  01. 
-8.093E  00.-7.534E  00.-b.9B7E  00. 
-1.383E  01.-1.325E  01.-1.26BE  01. 
-1.038E  01.-9.800E  00.-9.227E  00. 
-6.9b9E  00.-6. 413E  00.-b.887E  00. 
-4.145E  00.-3.829E  00.-3.b62E  00. 
-1.047E  01.-9.B92E  00.-9. 317E  00/ 


-7.034t  00 . -6.474E  Q0.-5.926E  00. 
-4.006E  00.-3.b41E  00.-3. 329E  00. 
-2.475E  00.-2.331E  00.-2.209E  00. 
-8.041E  00.-7.46BE  00.-6.899E  00. 
-4.713E  00.-4.216E  00.-3.764E  00. 
-2.466E  00.-2.2b6E  U0.-2.079E  00. 
”1 )591E  00.-l.b06E  00.-1.432E  00. 
-1.209E  0U.-b.7b9E  O0.-b.199E  00. 
-3.202E  00. -2. BOSE  00.-2.469E  00/ 


-l.b72E  00.-1.431E  00.-1.309E  00. 
-9. 74bE-0 1.-9. 154E  0 1 . -8.630E-01 . 
-7.024E-01.-6.714E-Ol.-4.03bE  00. 
-2.229E  00.-1.906E  00.-1.633E  00. 
-9. 409E-01 . -8. 327E-01 . -7. 390E-01 . 
-4.81 0E-01 . -4 . 3b2E-0 1.-3. 946E-01 . 
-2.698E-01 »-2.456E-0l.-2.23bE-01 . 
-1.561E  O0.-1.27bE  00.-l.03bE  00. 
-4 . 4 1 b£-0 1 . -3. bO 1E-0 1 . -2 . 727E-01/ 


-b  •>  b91  E-02 .  -I  •  794E-02 .  1.S68E-02. 

1.1B4E-01*  1 • 383E-0 1 .  l.b64E-01. 
-1.07BE  00.-8,024E-01.-b.749E-Ul. 
-2.026E-02*  6.316E-02.  1.332E-01. 
3.2b0E-01 .  3,b83E-01.  3.876E-01. 
4.764E-01 .  4.934E-01.  b.088E-01* 
-7.269E-01 .-4.430E-01.-2.121E-01* 
3.471E-01 *  4.286E-01.  4.962E-01. 
6.774E-01 .  7.082E-01.  7.3blE-01/ 


8. lb4E-01 .  8. 306E-01.  8.443E-01. 
-4.863E-01 . -1 . 788E-01 .  7.220E-02. 
6.712E-01 .  7,b60E-Ol.  8.2b6E-01* 
1.006E  00.  1.037E  00.  1.063E  00. 
1.139E  00.  l.lbSE  00.  1.16bE  00. 
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to  1.177t  00*  1 • 187b  00*  l.l97t  00* 
7  S.0b3t-01*  to.901t-(>l*  B.367t-0l* 
a  l.ioot  oo*  i.23at  oo*  l.saot  oo* 

9  1 • 39bt  00*  1.413t  00*  1.429t  00* 

COMMON/tST/tILN  6(b4) 

UATA  tILN  to/ 

1  1.479t  00*  1.4BBt  00*  1.497t  00* 

2  b.64bt-Ul*  B.002t=*01*  1.053t  00* 

3  1.453t  00*  l.bOtot  00*  1.55Ut  00* 

4  1  < 66  Bt  00*  1.68BL  00*  1.70tob  00* 

b  1.7b0t  00*  1.770t  00*  '1.779b  00* 
to  7.419t-Ul*  9.97tot-Ul*  1.204E  00* 
7  1.6B4'_  00*  1.748b  00*  1.B01E  00* 
B  1.93VL  00.  1.962E  00.  1.982t  00. 

9  2 •  042b  00*  2.0b3t  00*  2.063t  00* 

COMMON/tST/LILN  7(b4) 

UATA  tILN  7/ 

1  2.09bt  00*  1.037E  00*  1.282E  00* 

2  1.9U4t  00*  1.986b  00*  2.048t  00* 

3  2.209b  00*  2.2’ bt  00*  2.25BE  00* 

4  2.323b  00*  2.31  ~  00*  2.34bb  00* 

b  2. 3b lb  00*  2.3B/C  00*  1.28BE  00* 

to  2. lOtob  00*  2.207E  00*  2.2BtoE  00* 

7  2.477t  00.  2.50tot  00.  2.532E  00. 

B  2.604b  00*  2.617b  00*  2.629b  00* 

9  2.6totob  00*  2.673b  00*  2.6BOt  00* 

COMMON/tST/tILM  B<47) 

UATA  tILN  B/ 

1  2.2B1 t  00*  2.412b  OO*  2.612b  00* 

2  2.741t  00*  2.774b  00*  2.B03E  00. 

3  2.8Bbb  00*  2.901b  00*  2.914E  00* 

4  2.9b 3't  UO.  2.961E  00*  2.96BE  00* 

b  2.419b  00.  2. 691t  UU*  2.71BE  00. 

to  3.00BL  00*  3.049b  00*  3.082b  00* 

7  3.172b  00*  3. lBBb  00*  3.202E  00* 

B  3.243b  Of*  3.261b  00.  3.25Bt  00. 

COMMON/tST/tILN  9(29) 


b 

UATA  tU.N 

9/ 

2.1B0t40. 

2.501E40* 

6 

3<13bb40* 

3.211E4U. 

3.270E+0* 

7 

3.412L+0* 

3.436E40* 

3.465E40* 

B 

3.bllL+U  * 

3.522E+0* 

3.530E40* 

9 

3.5b9L40 .  3.565E40* 
COHMQN/tST/E ILN10  (64) 
UATA  bILNIO/ 

2.504E+0* 

1 

3.366L+0* 

3.447E40* 

3.519E40* 

2 

3.6B3t40* 

3.707E+0* 

3.728E40* 

3 

3.7BBE40* 

3.799E40. 

3.808E40* 

4 

3.B39b40* 

3.64bE40* 

3.861E+0* 

5 

3.647t40. 

3.662E+0* 

3.744E+0* 

to 

3.935L40* 

3.965E40* 

3.9B9E+0* 

7 

4.0b0b40* 

4.072E40* 

4.0B3E40* 

B 

4 . 1 1 tit +U * 

4.126E40* 

4.131E40* 

9 

3.693t+0*  3.836E40* 
COMMON/t ST/E ILN1 1(64) 
UATA  tlLNll/ 

3.94  b(r"  4-0* 

1 

4.1BBt40* 

4.222L40* 

4.2S1E+0* 

2 

4.331L40* 

4.345E40* 

4.3b7E4i>* 

3 

4.39toE40. 

4.403E40* 

4.410E40* 

4 

3.783E+0. 

3.9B0E+0* 

4.126E40* 

b 

4.429t+0* 

4.471E+0. 

4.506E40* 

6 

4 .bOOt+O* 

4.616E+0* 

4.630E40* 

7 

4.b74E+0* 

4.682E+0* 

4.690E40* 

8 

3.804b s0* 

4.078E40* 

4.274E+0* 

9 

4.fato7t40* 

4.71BE40* 

4.759E40* 

1.206E  00*-6.935t-03*  2.768L-01* 
9,b38b-01.  1.048b  00*  1.123b  00* 
1.317b  00*  1.347E  00*  1.374E  00* 
1.444b  00*  1.457t  00*  1.469E  00/ 


l.bObb  00*  1.S12E  00*  3.972E-01* 
1.190E  00*  1.300t  00*  1.388E  00* 
1.6B7t  00*  1.617E  00*  1.644E  00* 
1.722b  00*  1.7JJ6E  00*  1.748E  00* 
1.788b  Oft*  1.796E  00*  I.803E  00* 
1.3b9t  00*  l.bOOE  00*  1.603E  00* 

1. B46b  00*  1.882E  00*  1.913E  00* 
2.000b  00*  2. OISE  00*  2.029E  00* 

2.  C72b  00*  2. OBOE  00*  2.088E  00/ 


1.493b  00*  1.668E  00*  1.801E  00* 
2.100E  00*  2.143E  00.  2.179E  00. 
2.277E  00*  2.29SE  00*  2.310E  00* 
2.356E  00*  2.365E  00*  2.373E  00* 
l.bb2E  00*  1.797E  00.  1.973E  00* 
2.349b  00* ‘ 2.400E  00*  2.442E  00* 
2«bb4b  00*  2.673E  00*  2.S89E  00* 
2.640E  00*  2.649E  00*  2.6S8E  00* 
1.619E  00*  1.870E  00*  2.10bE  00/ 


2 . bB9t  00*  2. tobOE  00*  2.700E  00* 
2.828E  00*  2.850E  00*  2.869E  00* 
2.926E  00*  2.936E  00*  2.944E  00* 
2.974E  00.  2.029E  00*  2.183E  00. 
2.B16E  00*  2.896E  00*  2.96BE  00* 
3. llCb  00*  3.134E  00*  3.1S4E  00* 
3.214b  00.  3.225E  00.  3.234E  00. 
3.266b  00.  3.271E  00/ 


2.732E+0*  2.906E*0*  3.030E40* 
3.316E+0*  3.354t40*  3. 386E+0* 
3.472E+0*  3.487t+0.  3.500E+0* 
3.539E+0*  3.546E+0*  3.553E+0* 
2.B20E+0*  3.061E4-0.  3.232E4-0/ 


3.575C+0,  3.620E+0 .  3.654E+0* 

3.746E+0*  3.762E+0*  3.775E+0* 

3.B17t*0*  3.826E40*  3.833E40* 

2.029E+0*  3.157E+0*  3.3B5E+0* 

3.807E+0*  3.868E+0*  3.900E*0. 

4.011b 40 .  4.029E+0*  4.045E40* 

4.093E+0*  4. 103E+0*  4.111E+0* 

4.137E+0*  3.171E+0*  3.482E+0* 

4.027E+0*  4.093E+0*  4.145E40/ 


4.27bb+0*  4,29bE«-0*  4.315E40* 

4.369E+0*  4. 379b  4-0*  4.3B8E+0* 

4.«17t40*  4. 422b  4-0*  3.S00E+0* 

4.233E+0*  4.314E40*  4.37BE40* 

4.b3bE40*  4.560E40*  4.5B1E40* 

4.643E+0*  4.655E40*  4.665E40* 

4.&97E40*  4.703E+0*  4.709E40* 

4.415EM).  4.521E46*  4.602E40* 

4.794E40*  4.B23E4-0*  4.848E40/ 
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COMNON/ES  VU  LN12(b4) 

data  lilniz/ 


4.B70L+0# 

4,{?auE*u» 

4<90bE*0* 

4.919L40# 

4.932L40# 

4.943E+0* 

4.9b3E40« 

4.9b2L40* 

N.971E40# 

4.97BE+0# 

4.98bE+0« 

4.992E+0. 

4.V97E40# 

4. lUbt+U« 

4.37bE40« 

4<b67E+0* 

4.709L40* 

4.B14E+0* 

4<b9bL40* 

4.9b9E+U* 

b.OlOE+U* 

b<  0b2L+0» 

b<  0B6E+0* 

b.l09E40* 

b<127L*U» 

b<143E+U» 

b.lbBE+U» 

B.171E40* 

b<183E+0* 

b<194E+0» 

b.ZU4L+U» 

b.214E+U* 

b.222E*0» 

b.230L+0* 

b.23BE+0f 

b.24bE+0» 

b.2blt4U* 

b.2b7E+0* 

4.411E+0* 

4.  b70t  +o* 

4.B69E+0* 

b.007E40» 

b.lUbL+U* 

b.<b7E+0# 

b.2U2t+U» 

b.24£t>0* 

b.277L40« 

b.3UBE40* 

b. 33bt+U* 

b. 3j9E*U« 

b.3BUE+U» 

j.399E40« 

b.4161+0* 

b.432E*0/ 

C OMMOU/EST /L 1 LN 1 3 (  9) 

UATA  E1LN13/ 

b. 44bt+U  * 

b.4bBE+U* 

b.470E+0« 

S.4B1E+0* 

5.490E+0# 

b.499E40# 

b<bil7E40« 

b.blbt+U* 

b.S22E+0/ 

1F(E< 4L.0. )  bC  TO  5 
THA  =  l.E-3 
ZUARsO. 
bO  TO  9bU 
b  CONTINUE 

ALfiT  sALObi  0 1 T  All ) 

ALGE=AL0610(U 
UkbT = ALbT-  T  AULZ 
ULG£=ALGE-EL/ 

AN=DLGT*S+1 . 

AN=DLbE*T+l. 

IF  IULGT<LT<0< )  AN=0. 

IF (DLGE.LT. U. >  AM=0. 

.  N=IF1X( AN) 

MslFJX(AM) 

1N=0 

EO=E 

IF(N.LL.U)  GO  TO  10 
XF(N.GL.NN)  GO  TO  20 
IF  (M.LL.l) )  GO  TO  BOO 
lF(M.bt.HM)  GO  TO  4UU 
8  CONTINUE 

UNLTsAN-AXNT(AN) 

UMLE=AM-AINT(AW) 

ZBAR=/B  ( N  ♦  M )  ♦  ( ZB  ( N*1 » '5 )  -ZB  t  N  *  W ) )  *  DNL  T 

1  + (Zb (NtM+l)-ZB (NtM) )*  OMLE 

2  ♦(Zb(N+l»M+l)+ZB(N*M)-Zb(NU»M)-ZB(N«M+l) ) 

3  * (UNLT*UMLE) 
ALIN=E1LN(N*M)-MEILN(N41»M)-EILN(N»M))*DNLT 

1  ♦ ( EILN ( N«N+11— E1LN ( N  #N ) ) *DMLE 

3  *(DNLT*UML£) 

Z  +(E1LN(N+1*M+1)4E1LN(N»M)-£1LN(N+1*M)-EILN(N«M+1) ) 

TKA2(EO/FHI— EXPIALIN) )/ ( 1.5* (l.+ZBAR  )) 

IFUN.NE.OGO  TO  Ub0.2bO*3b0.4bO»5bO»bbO#7bO#abO)»lN 
bO  TO  9b0 

10  IF(N.Lt.O)  GO  TO  100 
IFtM.GE.MM)  GO  TO  300 
GO  TO  200 

20  1FIM.LE.0)  GO  TO  700 
IF(M.bt.MM)  GO  TO  bOO 
GO  To  bOU 
100  CONTINUE 

1FI11.EG.1)  GO  TO  9901 
lbO  CONTINUE 
KETURN 

200  CONTINUE 

1F112<EG.1)  GO  TO  9902 
2b0  CONTINUE 

•  HETUHN 

.  iO  CONTINUE 
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tMIl.U.ll  00  To  99UJ 
JbU  CONTINUE 
HtTUKN 
400  CONTINUt 

IMI4.LU.1)  bO  TO  9904 
4bU  CONTI NUL 
RtTUKN 
bOU  CONTINUt 

IK (Ib.LOol)  00  TO  990b 
bSO  CONTINUt 
rttTUKN 

600  CONTINUL 

IF(Ib.tO.l)  00  TO  990b 
ObU  CONTINUt 
KtTUHN 
700  CONTINUt 

IK ( 1 7. tO. 1 )  00  To  99U7 

IN  =  7 

M  =  1 

N  =  NN 

tO=E2 

00  TO  B 

7b0  THAP  =  t  ♦  THA  /  t2 

i  ^?tMA*THAK^^*)  )  ) ** • 75  *  SORT  (TAUM/TrtU)*EXP(Vl*(  THAI’**  THA )  / 

AIN=V1*2BAR 


00  TO  900 
600  CONTINUt 

IF  iB.tO.l)  00  TO  9900 
IN  S  0 


M  =  1 
ECrEX 
09  TO  b 

bbO  THAP  =  t  ♦  THA  /  t l 

ZUAR  =  /OAR  ♦  ( THAP/THA) *♦«  7b  ♦  EXP(V1*(  THAP  -  THA)  / 
1(THA  ♦  THAP*2.)) 

AIN=V1*2BAR 
900  CONTINUt 

THA= (t/PHI-AlN) / ( 1 . b* ( 1 . +2BAR ) ) 

9b0  P=PHI*(1.+ZBAR  >*THA/1AU 
RETURN 

9901  51=12.0100 
00  TO  999-J 

9902  01=12.0200 
00  TO  9999 

9903  51=12.0300  \ 

00  TO  9999 

9904  51=12.0400 
oO  TO  9999 

990b  bl=I2.0b00 
00  TO  9999 
990b  51=12. ObOO 
00  TO  9999 
9907  51=12.0700 
00  TO  9999 

990a  bi=i2.oaoo 

9999  MR I Tt « b . 1 000 ) T AU . t » THA . P . ZB AR . GO  *  ALGT 

1000  FORMAT ( 1H1 » 12X . 6HT AU  i9X»oHt  p9X»bHTHA  .9XM.HP 
1UAR  ’9X'bH00  »9X»bHAl,GT  /7X* 1P7E15. 7) 

*91 Tt«b* 1001) ALGE rDLoT.ULGEr AN* AM 

1001  FORMAT (lH0.12Xt6HALOt  »9X»bHUCGT  »9X»bHDL0E  »9X.bHAN 

1M  /7X»lPbtl5.7) 

CU Tt  ( b » 1002 ) N » Mr  NN»  MM » 51 

1002  FORMAT ( 1H0» 12Xf 6HN  r9XroHM  .9XrbHNN  »9X»(>HMM 

11  /7X'19'3(6X»19) rlPtlb.7) 


» 9X » bH2 


r'JX.hHA 


;9X»bHS 


-  3-. 

■  , ■ 

;;  *  '  - 
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CALL  EDIT 
END 


» f  Jj. i  i  \  -•■  .  .,.4 
I-* r  l 
'  :  '!M  •  V1'** 
i  4  f  •'  *  ■-  fti 

..  w  <  £  ■  ^ 

f  i:.V 


r>  o 
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FOR  Lb*  L5/FJ 

5UUROUT  1NL  Lb(  T AU* E *  THA »P»2b»0) 

COMMON  //  2 

LOU1  V  A  L  L  N  C 


C 


OLdUI VALENCE 
1(2(4) r PRINTS) * 
2(2(8). PlJY). 
3(2(12) »OAMX) * 
4(2(16) ) TMU2 ) • 
b(2(20) *TYMAX) * 
6(2(24)  »L)M1N)  * 
7(2(2U) .NPN) * 
3(2(32) »NKt) . 

9(2 (3b) . JMAXA) * 
OLUU1 VALLNCL 
1(2(43) rNOQ) * 
2(2(47) *11) * 
3(2(51) *Nl) * 
4(2(55) »N5) * 
5(2(59) *N9)* 
6(2(63) .TRAD) * 
7(2(67) f HAUER) f 
8(2(71). HL2FCT). 
9(2(75) *T020Nt)» 
0L9U1 VALLNCL 
1 ( 2 ( 82 ) *  CAULN ) * 
2(2(00) .WSGO) * 
3(2(90) *bl) * 
4(2(94) *55) * 
5(2190) *59)* 


(2*  12*h'l<0B)  * 
*2(5) .PRINfL) . 
(2(9)  * T 142 )  * 
(2(13)  *i;th)* 
(2(17) *TMX2) * 
(2(21) *AMOM) * 
(2(25) *FEF)* 
(2(29) »MPRI ) • 
(2(33) * 1MAX) * 
(2(37) *KMAX) • 
(2(40) *M0) * 
(2(44) .NOPH) * 
(2(48) *12) » 

( 2  (  52 )  *  N2 )  » 
(2(56) *N6) * 

(2 (oO) *N10) > 
(2tb4) , XNRO) * 
(2 (bU) .HADLT) * 
(2(72) »RSTOP) . 
(2(76) *ECK)* 
(2(79) *X2) . 
(2(83) * V1SC) • 
(2(87) * MSGX) • 
(2(91) *S2) * 
(2(95) *56)* 
(2(99) *510) 


(2(2) *CYCLL) * 
(2(6)  .UUMPT7)  * 

( 2 ( 10) .SCYCLE) * 
(2(14) *FFA) * 
(2(18) *  XMAX ) * 
(2(22) *AMXM) * 
(2(26) *CTNA ) * 
(2(30) *NC>* 
(2(34) * 1MAXA )  * 
(2(38) *KMAXA) * 
(2(41) *KDT> • 
(2(45) *N1MAX) * 
(2(49)  *  13)  *. 
(2(53) *N3) • 
(2(57) *N7)* 

( 2 ( 0 1 ) iNll ) * 
(2(65) *SN>  * 
(2(09) * HADED) * 
(2(73) *  SHELL) * 
(2(77) *SUOUND) * 
(2(00) * Yl) * 
(2(84) *T) * 

(2(88) *GMADR>  * 
(2(92) *S 3>* 
(2(96) *S7) * 


(2(101) *HCU>  > 
(2(105) *CV) • 
(2(109) .ALCO). 
(2( 113) *CAPSi  * 
(2(117) *1SN! c 
(2(121) » IN) • 
(2(125)* JC)* 
(2(129) *HH)* 
(2(133) ;J3) > 


(2(141) *RADE>* 
(2( 145) * JV) * 
(2(149) *DTUF) * 


OL JUI VALLNCE 
1(2(103) *SVS) • 
2(2(107) *5UMFL). 
3(2(111) *L2ER0) * 
3(2(115)  *COD* 
4(2(119) *AHN)* 
5(2(123) *OTC) • 

X ( 2 ( 127) * COUT) * 
6(2(131). Jl)* 
7(2(135) *J5). 
8(2(1 39). FKCUTC) 
OLOUi VALENCE 
1(2(143) .5CRL). 
2(2(147) *JU)* 

A=  E-HVO-HCb+HCP 

TLMPA=5.L*6 

IF(A.LT.TLMPA)  A: 

CALL  LIULXtTAU.A 

RLTUKN 

END 


(2(100) *HVU). 
(2(104). ATOM). 
(2fl08)*UETA). 
(2(112). PW). 
(2(116). SCH). 
(2(120) *OTH) * 
(2 (124) » 1C) * 
(2(128) *HCP) * 
(2 ( 132) * J2) * 
(2(136) *J6). 

(2(140) *VAHE;* 
(2(144) > IV)  * 
(2(148) *OTVF) . 


0.0 

THA.P*  2t>  *GG) 


(2(3) *DT) » 
(2(7) .CSTOP) * 
(2(11) *SPR08) * 
(2(15) *FFH) . 

(2( 19) f TXMAX) * 
(2(23) *DNN) * 
(2(27) *CV1S) * 
(2(31) *NPC ) * 
(2(35) * JMAX) * 

(2 ( 39) *NMAX) 
(2(42) * IXMAX) * 
(2(46) .NJMAX)  * 
(2(50). 14). 
(2(54) *N4) * 
(2(58) *N8) * 
(2(62) *NRM). 
(2(66) *DXN). 
(2(70) *DTHAD) * 
(2(74) tBBOUND) * 
(2(78) *X1) 
(2(81). YZ). 
(2(85) *GMAX) * 
(2(H9) . GMAXH) i 
(ZI93) *S4) * 
(2(97) *SB) * 


( 2 ( 102) >CB) * 

(2 ( 106) »GV) * 
(2(110). ANN). 

(2 (114) *HNU) * 
(2(118) *5CDR)« 
(2(122). JH). 

(Z( 126! *RFT) * 
(2(130). CO). 
(2(134). J4). 
(2(138). SVMAX). 

(2(142) .CNDE) . 
(2(146). 1U). 
(2(150). Ell) 
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U1  ASM  PAC 
NBPH  . 

PAC*  . 

L  A0*«2*U11 

L  013**1*1111 

AA*01b  Alt  1 
LSSL  Al>l 
J  4-1*013 

S*01S  aO*«U*OU 
j  4*011 

S*Q14  A0**0*011 
J  4*811 

S* 013  AO  r  *0  r Ull 
J  4*811 

S*01Z  A0*«0*ull 
J  4*811 

*  S*0U  A0**0*B11 
J  4*Bll 

S.010  A0*«0*Bll 
J  4*811 

EMU 


fi2S 
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c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


UtGU I VALENCE  (Z(  10(l> . HVU)  . 

1(2(103)  »SVS)  .  (2(1U4)  *  ATOM) , 

2<2(lU7)  .SUMFL).  ( 2  ( 1UH ) . HE )A ) . 

3  (2(111  I.E2ER0).  (2(112) .PW)» 

3(2(iis)  »coe>»  (2(iit>)  .scri  . 

4(2(119). AHN) »  (2(120) .DTh) . 

5(2(123) .UTC) .  (2(124) * IC) * 

X(2(l27)  .CUUT)  .  (2(120)  .HCP). 

b(2(131) »J1) .  (2(132) » J2) » 

7(2( 13b) . Jb) .  ( 2 ( 13o) . Jb) . 

0(2(139) .FRCUTC ) 

0E9UIVALENCE  (2(140) .VAPL) . 

1(2(149) .SCHt).  (2(144) »  IV) * 

2(2(147)  »JU)»  (2(140)  *I)TVF)  * 


(2(101)  »HCIt)  .  I /( 102)  »CH ) . 

(2( 10b) »CV) .  (/( 10b) iGV)  » 

(2( 109) • ALCO) *  </ < 110) *  ANN) » 

(2(11  )) .CAPS)  *  (7(114) .  HNU)  # 

(2(117). IbR) •  (Z(llO).  SC  l)R ) » 

(2( 121) » IM) .  (2(122). JH) . 

(2 ( 12b) .  JC) »  (2( 12b) »RM) * 

(2(129). HH).  (2(1301. CO). 

(2(133) »  J3) .  *7(134). J4># 

(2(13H).SYMAX). 

(2(141). RADt) .  (7( 142) .CNOE) . 

( 2  < 14b) . JV) .  ( 2  ( 14b)  .  IU) . 

(2(149). DIUF).  ( 2 ( lbO) .LI1) 


OLGUI VALENCE 
1(PR(1UU) .SIGC) . 
2 (UR(lb) . AMK ) . 

C 


(XA(2).X(1)). 
(PN.PL.GAMC). 
(UR (31) .PK) . 

U  M 


(UR.UL.FLtFT). 
(UKE* THETA). 
(UR(4b).QK). 

M  0 


(UR(IOO).YAMC). 
(UR. TAD). 
(YV(2),Y(1)) 

N 


RILL  ONLY  GENERATE  (1)  MATERIAL. 

PACKAGES  MUST  UE  RECTANGLES. 

FF*  MAX  INCREASE  IN  DT  PER  CYCLE 

*<1S)  FFB  MIN  POSSIBLE  UT 

2(25)  FEF  ENERGY  FLOW  ALLOWABLE 

*<bS)  SN  ONE  ALLOWS  NE6  I 

2(74)  BHOUND  2EH0  FOR  RADIATION 

2(7b)  TOZONE  DENSITY  LIMIT  AT  FREE  SURFACE 

fj77’  SBOUND  WT.  FRACTION  IN  VEL.  FOR  MASS  TRANS. 
2(104)  ATOM  ATOMIC  NO. 

/(11U)  ANN  EXP.  FOR  FN  FUNCTION 

2(111)  E2ER0  INITIAL  SOURCE 

*<U2>  PW  PULSE  WIDTH  AT  HALF  MAX 

2(113)  CAPS  KS  ABSORPTION  IN  SOLID 

2(114)  HNU  LASER  PHOTON  ENERY 

2(115)  COE  CK  COEF  FOR  LOW  TEMP 

A(118)  SCUR  SOURCE  DURATION 

2.119.  AHN  B.62E10/(ATOM*HNU)««2 

2(12b)  HFT  REFLECTIVITY 

2(127)  CUUT  CONDUCTIVITY 

13tt>  SPECIFIC  DENSITY  CUTOFF 

*<139)  PERCENT  OF  STABILITY  FOR  DT 

!  'ROB-SPROB 
FFA=2. 

FFB=1.E-10 

FEF=b. 

SNS-1. 

BBOUNU=0. 

SBOUNUsl. 

SVMAX=1.E14 

FRCDTCs.b 

CB=CV*(GV-1.) 


AHN  s  B.G2E10  /  ( ATOM.HNU) **2 

KMAX=IMAX*JMAX+1 

KMAXA=KMAX*1 

JMAXA=JMAX+1 

IMAXA=IMAX*1 

PIDY=3. 1415927 

NEAU  IN  DY  AND  UX 

1=0 


SE TUI 090 
SETU1100 
SETU1110 
SE TUI 120 
SETU1230 


J=0 
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«I 

c 

c 

c 


for  setup.  setup/fj 

SUBROUTINE  it TUP 

DIMENSION 


SLTIJ0010 


DIMENSION 

1U(  1200)  *  VU200).  AMXU200).  AIX( 1200) » 

2THETA(1200) *  HHO(12UU).  FIOUT ( 1200) »  CAP(1200). 
3PUL(25b)  »  181(50)  .82(50)  .83(50)  *  TABLM(bO)  . 

4UX(52).  X(53).  XX( 54) .  DY(100).  V(100)» 

bTAB(lb).  AMX ( 15) »  PKS15) *  QK(lb).  2(150). 

6TAU(52).  PL (200) .  PM200).  UL«200).  UR(200). 

7FLtFT ( 1 00 )  .  T AMC  ( 100 )  .  SIfaC ( 1 00 )  * 6AMC  ( 1 00 )  . 

80(50) .SUL ID (400) »TEMP( 12) . HEAD ( 12) 


P(1200). 

KFIT(120U). 

VV(lOl). 
1Z( 150) t 


COMMON 

Z 

.XX 

.UR 

.PR 

.THETA 

.  YV 

COMMON 

AID 

.AIX 

.AM 

.AMD 

.AMX 

•  ARE;* 

COMMON 

DIG 

.BOUNCE 

.DOXN 

»DDVK 

.DVK 

»ux 

COMMON 

UV 

»E 

.Ft) 

.FS 

»FX 

.OUT 

COMMON 

P 

.PABOVE 

»PBLO 

.PIDT6 

•  PPAtlDV 

.PRR 

COMMON 

PUL 

.  ODT 

.HC 

.REZ 

.RHO 

»HL 

COMMON 

HR. SIC. GOOOFL. SWITCH 

. tablm.tau 

COMMON 

TAUOTS 

» TAUOTX 

.U 

•  UK 

»URH 

.UT 

COMMON 

UU 

.UU U 

.UTEF 

.UVMAX 

.V 

•VABOVE 

COMMON 

VBLO 

.VEL 

.VK 

.VT 

.VTEF 

»vv 

COMMON 

WABOV 

. VVBLO 

.82 

.83 

.WPS 

.  WS 

COMMON 

WSA 

.  WSB 

.  8SC 

.XL 

»XLF 

.  XN 

COMMON 

XR 

•  YL 

.  YL8 

.YN 

.YU 

.  ZMAX 

COMMON 

1 

.11 

.IN 

.IR 

•  IWS 

.  IWSA 

COMMON 

iwsb 

.IWSC 

.181 

.  J 

.JN 

.JP 

COMMON 

JR 

»K 

.KN 

.KP 

»KR 

•  KRM 

COMMON 

L 

»H 

.MA 

.MB 

»MC 

»MD 

COMMON 

ME 

.MZ 

.N 

.NK 

.NKMAX 

»NK1 

COMMON 

NO 

.NR 

.6 

.SOLID 

.TEMP 

COMMON 

FIOUT 

.CAP 

»KFIT 

. I SEND 

.IGOTO 

.HEAD 

E 

0  U 

1  V 

A  L 

E  N 

C  t 

C 


0E«U I VALENCE 
1(2(4). PRINTS). 
2(2(8). P10Y) . 
3(2(12) .GAMX). 

4 (2 (lb) . TMOZ) • 
5(2(20). TYMAX). 
6(2(24). DMIN). 
7(2(28). NPR). 
8(2(32). NRC). 
9(Z(3b) . JMAXA) • 
0L0U1 VALENCE 
1(2(43). NOD). 
2(2(47). ID. 
3(2(51). Nl). 
4(Z(55).Nb). 
5(Z(59DN9). 
b(Z(63) .TRAD) . 
7(2(67). RAOER). 
8(Z(71) .RLZFCT) . 
9 ( Z ( 7b ) . T OZONE ) . 
0 EQUIVALENCE 
1(2(82). CABLN). 
2(2(86) .8580). 
3(2(90). SI). 
4(2(94). 55). 
5(2(96). S9). 


(Z.IZ.I’RCS.. 
(Z(b).PRINTLJ . 
(Z(y).TMZ). 
(Z(13).ETM). 
(2(17). TMX2). 
(Z(21) . AMOR) . 
(Z(25).FEF). 
(Z(29).NPR1). 
(Z(33).IMAX). 
(Z(37) .KMAX) . 

( Z ( 4  0 ) .NO) . 

( Z ( 44 ) , NOPR ) » 

(Z(48).I2). 

(Z(b2).N2). 

(Z(b6).N6>. 

(Z(60).N10). 

.  (Z(b4) . XNRG) . 
(Z(68) .HADET) . 
(Z( 72) .RSTOP) • 
(Z(76).ECK). 
(Z(79).X2) . 
(Z(U3) .VISC) . 
(Z(87) . WSGX) . 
(Z(91).S2). 
(Z(9b).S6). 
(Z(99) .510 ) 


(Z(2>. CYCLE). 
(2(6) .UUMPT7) . 
(2(10) .SCYCLE)  . 
(Z(14)«FFA). 
(Z(18).XNAX). 
(Z(22). AMXM). 
(2(26). DTNA). 
(Z(30).NC>. 

(Z( 34) . IMAXA) . 
(Z(38) .KMAXA) . 
(Z(41).KDT). 
(Z(45) .NIMAX) . 
(2(49). 13). 
(Z(53).N3). 
(Z(57),N7). 
(Z(bl).Nll). 
(Z(65).SN). 
(Z(69) .RADEH) . 

( Z ( 73 ) • SMELL ) . 
(Z ( 77) . SUOUND) . 
(Z(80).Y1). 
(2(84). T). 

(Z ( 88) . GMADR) . 
(2(92) .S3) . 
(2(96) .S7). 


*2 ( 3) »DT) » 
iZ(7) . CSTOP) . 
(Z(ll).SPROB). 
(Z(15).FFB). 

(Z( 19) .TXMAX) • 
(Z(23).ONN) . 
(Z(27).CVIS). 

( Z  ( 3 1 )  .  NPC ) . 
(Z(35).JMAX). 
(2(39) .NMAX) 

( Z ( 42 ) . 1XMAX) . 
(Z(46).NJKAX). 
(Z(50) .14) . 
«Z(54) »N4) » 

( Z  ( 58 ) .  N8 ) . 
(Z(62).NRM). 
(Z(66) . OXN) . 
(Z(70) .DTRAD) . 

(  Z ( 74 ) . ABOUND ) . 
(Z(7B).X1) 
(Z(0l).Y2). 
(Z(85) .GMAX) . 
(Z(89) . GMAXR) . 
(Z(93).S4). 
(2(97). SB)  . 
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X(*1=0. 

y(j»=o. 

2000  KtAD  (  5*ai02HWSA*IW5H*Nl*N2*N3*N4.<  AMX(K) *K=l*4t 

L=1 

IF (N4)2003 #2001*2003 

2001  1F(N5>2004. 2002*2004 

2002  IF ( N2 ) 200b* 2000* 200b 

2003  L=L*1 

2004  L=L*1 
200b  L=L*1 

C  TtST  TO  CALC  (X  AND  UX  IF  1W5H=0  OH  Y  AND  DY  IF  IWSH=lt 
2000  IF ( lWSB) 2010* 201 0*2030 
C  CALC  THt  X  AND  DX  VALUES 

2010  UO  2014  N=1*L 
NK=12(N*50> 

UO  2012  K=1*NK 
1=1*1 

UXU)=  AMX(N) 

xm=x(i-i)+uxm 
2012  CONTINUE 
2014  CONTINUE 

bO  TO  2000 

C  CALC  THt  T  AND  UT  VALUES 

2030  UO  2034  N=1*L 
NK=I2(N*50) 

UO  2032  K=1«NK 
J=J*1 

UT(J)=  AMX(N) 

Y(J)  =  Y(J-1>HIY(J) 

2032  CONTINUE 
2034  CONTINUE 

C  TEST  IF  ANOTHER  CARD  SHOULO  BE  HEAD  (YES  IF  1WSA=0*  NO  IF  IWSASl) 
2050  1F(1|»SA.EQ.0)  GO  TO  2000 
*S=X(1)**2 
TAU(1)=XS*P1DY 
UO  2054  1=2* IMAX 
WSA=X  < 1 ) **2 
TAUI 1 I =P1DY* ( WSA-WS ) 

WS=WSA 

2054  CONTINUE 

WRITE  (6*60bb) IMAX*  (UX(  1 1  *  1=1  * IMAX ) 

WRITE  (6*60671 JMAX* (UY ( 1 ) *  1=1  * JMAX > 

WRITE  (6*6092) (IMAX* (TAU(I) *Isl • IMAX) ) 

C  CLEAR  ALL  CELL  ARRAYS. 

UO  1  K=1*KMAX 

U(K ) =0.0 

V(K)=0.0 

P(K)=0.0 

AMX(K)=0.0 

A1X(K)=0.0 

THETA (R)=0. 

1  CONTINUE 
N1=0 
142-0 
N3=0 
N4=0 
MF=1 
NN=ANN 

UO  10  Nl=l*NN 
10  NF=NF*N1 
NP=NN*1 
UO  40  MP=1»NP 
M=MP-1 
MFsl 

UO  20  N1=1*M 


SETU1240 

SETU1280 

SETU1290 

SETU1300 


SETUU30 
SETU1140 
St TUI 150 
St TUI 160 
SETU1170 
SE TUI 160 

SETU11P0 


% 
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20  MF=MF*N1 
WMM=NN-M 
NMMFsl 

DO  30  N1"1«NM 
30  NMMF=NMMF  *NI 
Artf-NF 
AMF=MF 
AMMF=NMMF 
AM=M 

40  DMN=(-1. >**M+ANF/(AMF*ANMF*(2.*AM+1.  » 9+HNN 
AAN=ANN 

IF (AAN.EU.O.)  A AN-1. 

TEMP(1)=1./2.*+(1./AAN> 

IF ! ANN.EU. 0. )  TEMP(1)=D. 

TtMP(2)=l.-TtMP(l) 
bCDR-Htt/TLMH  (2 ) 

TEMP! JJ=SuKT (P1I/T+2.+PW+CV/ (CDUT*SVS*TEMP(2)  > ) 

IF (CDUT.EU. 0. )  rLMF(3)=0. 

TEMP(4)=C0UT+HCU/(2.'M1.-RFT)*CV) 

TtMP(b)=l./(  (ANN+l.)*DNN*EZtRO) 

EXD=  1.  / ( ANN+.S) 

TC  =  PM/ (2 TEMP (2)  J  *  (TEMPlJl+TEMP  (4)*TEMP(i>)  1++EXD 
EXD=1 •  /  ( ANN+1 • ) 

IF (CDUT.EQ. 0. 9  TC  =SCDR/2.*!HC0*2./(EZER0*CAPS>  >**£Xi> 

C  CQ=SOUNU  SPEtU 

CO=SttKT  ( GV*  ( GV-1 . 9 *HCP 9 
HH=HVB+99CB-HCP+GV*  (bV+1 .  1  *HCP*.  5 
T=0VCJb5*(GV-l.)/UbV+l.)*C0) 

UT=T/4.0 

UTNA=OT/Z(139) 

T=T+TC 
TMTC=  T-TC 

SCHT= . 5+EZEHO* ( 2 . +T/SCDK  J •*  ( ANN+1 .9/TMTC  . 

IFIT.bT.O. 5+SCDK )  SCHT=  EZEHO* (l.-.5*(2.*(l.-T/SCDR9 )**( ANN+1. 1) 

1  /TMTC 

SCKTC—  . S+EZFRO* (2. *T C/SCDR ) •* ( ANN+1 . 9 /TMTC 

c|*U“Cru  T  «cruT  r 

KSCR=  ( 1  .-RFT »  *SCKTC*  ( ANN+ 1 . 1  *TMTC/TC 

TEMP  ( 1 J  =  ( 1 .  -HFT J  *SCHTC*T  MTC*SVS/HCB*4 . O/PIDT 

TEMP  1 2 1  =TMTC*S  VS*SCK/  ( KH-HCB ) 

IFICDUT.EQ.ii.J  TEMP(2l=0. 

TEMP  <  3  J  =CDUT*HH*HCB/ ( C  V*  I HH-HCH  )  *  ( 1  e  -VT  »  +SCRTC 9  *PID Y/4 . 0 
J=J5 

UO  30B0  1=1. I SR 
*=(J-1)*IMAX+I+1 
JB=( 1-1 1*20+1 
V(K>=-  CO*(GV+l«l/GV 
A1X(K)-HH— O.S+V(KI**2 

SOLID ( JB+1 9  =TEMP(19  +  (-TEMP(29+TEMP!39  9/U.+TEMP(39/!2.*TEMPU)9) 
SOLID  1 JU+2  > = 1 SCR-HCB* (  SOLID  ( JB+ 1 1  -TEMPI  1) .  /  ! SVS*  TMTC )  1  *  1 1 .  -HCII/HH 9 
SOLID! JB+39  =  1 1 • -RFT  1  *SCHT C*T MTC  ♦  HCB*(Si)LID(  JB+1J -TEMPI 11) /SVS 
SOLlD(JB+69=  SOLID 1JB+29 /  (HH-HCB) 

AMX 1 X )  =SOLXD  <JB+b  I  *  l  TMTC  1  *T  AU  (I) 

RH0(K9=AMX(K9/(TAU(19*DY 1 J) ) 

SCRE  =  SCRT+TMTC  *TAU(I»  ♦  SC  RE 
KADE=RFT*SCRTC*TMTC*TAU(IJ  +HADE 
CNDE=SOLI  D 1 JB+3 9 *TAU  ( I )  +CNUE 
M2 ( IJsSCR 

SOLID!  JB+79=SOL  ID!  JB+b)  *  TMTC 

VAPE  =  SOLID  (JB+2»*TMTC*TAU(I9+  VAPE+HCB*S0L1D(  JB+79*TAU(19 
SOLID  * Jtt+B) =SCRT*TMTC 
SOLID1JB+H9  =  SOLID! JB+B) 

SOLID ( Jb+11) =SOL10 1 Jd+6  9  *CO/GV 
SOLID '.JU+159=-CO 

SOLID!  JB+12)=S0LID(  JB+lll+SOLID!  JB+b9*ABS!SOLlD(  JB+  15)1 
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SOU  U  ( JU+ 1 3  )  =S0L  I D  ( Jt»+ 1  * )  *  ( TMTC ) 

IF(I.NE.ISR)  60  TO  3040 

AMX !k+1 )  =  (GV‘*1, )/ (GV+1  • )*AMX(K )/( 1,-OX! I )/ (2»*X(I))) 

1  *  !2./(6V+l , ) ) ** (2 ./ (GV-l . ) ) 

AMX!K)=AMX(K)-AMX(K+1) 

AIX(K+l)=HVO+HCU-HCP 
U(K+1)  =  CO/(GV-l.) 

U(K)  =CO/b. 

V(K+1)=-SQRT(2.*(HH-AIX(K*1) )  -U(K+1)**2) 

RHO(K)-'  AMX(K)/(TAU!  i)*OY(J) ) 

RH0(K+1 )=AMX(K+1)/(TAU( 1+1) *OY( J) ) 
AIX(K)"AXX!K)-0.b*(U(K)*+2) 

ETH  =  tTH  ♦( AIX(K*1 )♦  (V(KM)**2  +U(K+1)« *2)/2. )*  AMX(K+1) 
SV  =l./RHO(K+l) 

CALL  Eb(SV,AIX(K+l )  i THETA (K 41 ) ,P(K+1 )  ,CAH(K*1 )  i66> 

CALL  MFST(KFIT(K+1)»1) 

3040  ETH  =  ETH  ♦  (  AIX(K) +  ( V  (K )  **2+U(K  ,'w*2)/2.  )*AMX  (X  ) 
SV=l./RHO(K) 

CALL  Eb(SV,AIX(K), THET4 <<),P!K),CAP(K)»GG) 

CALL  MFST(KFIT(K),1) 

30S0  CONTINUE 

UO  2999  1=1,IMAX 
CALL  U JLOW ( JLOW , JHIGH ) 

UO  2999  JsJLOW.JHIGH 

K=(J-1)*IMAX+I+1 

CALL  FLAG(KFLAG.JL0w»JKlGH) 

CALL  KFST(KFIT(K),KFLAG) 

2999  CONTINUE 
CVCLE=0.0 
UTH=l.tlO 
urc-i.tio 

XMAXrX(IMAX) 

YMAX=V(JMAX) 

KEWlNU  10 
WS=5bb.O 

WRITE! 10)  WS, CYCLE, PROU 
WKITt<10HZ(I)»I=l»lb0) 

WRITE (10)  (U(I ) , V ( I )  ,  AMX  (I),AIX(I),P(I),  THETA!  I )  » 

1  KHO! I ) .FIOUT II ) »CAH ( 1 1 iKFIT! I ) » 1=1 .KMAXA) 

WRITE! 10)  X(0) r (X(I) rTAUil ) r 1=1* I MAX) 

WRITE! 10i J Y(I). 1=0, UMAX) 

WS=6b6,0 

WRITE  1 10 )  WS.WS.WS 
REWIND  10 
RETURN 

8102  FORMAT (211, 4I2.4E10 .4) 

8066  FORMAT (1H  /11H  DX(I)  1=1 . 12/ ( 5F16.6) ) 

8067  FORMAT (1H  /11H  DY(J)  J=l, I3/(5F16.6) ) 

8092  FORMAT (1H  /13H  AREA! I )  1=1, 12/ (bf 16.6) ) 

END 


SETUlbbO 


SETU1620 

SETU1640 

SETU1670 


SETU1730 

SETU1760 

SETU1T70 
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ut  t-oR  ti.K»  i  :#/(  <> 

5URR0U  1 1NK  ESK  (  TltA  »SV  »N»f  APK  I 
COMMON  //  7 


1  9 

U  1  V  A 

1  i  IIC 

1 

Ufc.uUlVAl.tNCl. 

(;:.  17.  ('nop) . 

(7(7)  *(.  YCLL  )  » 

•7(1) . 

(0) . 

iu(<o»riUMfs>. 

!2(‘.J  .(  KIND  ). 

(7<(.)<l>lMP17t. 

(7(7). 

(STOP). 

2(2</o  .piuyj . 

(2(9). IM7) • 

(700).  SC  YCLL  ) 

(7(11) 

»!.)*R0l4) . 

1(2(1*.)  .OAMX)  . 

(2(h). (.no. 

(2(14). FFA). 

(7(18) 

.PFH). 

4<2(U.).  1  MU/ )  • 

(7.(171.  tMXi  ). 

(2(114)  .XMAX). 

17.  (19) 

• TXMAX) . 

8(2 ( ?0)  •  1 YMAX)  . 

(  7  (  2  1  1  .  A  MOM ) . 

( 7  ( «’2) .  AMXM) . 

17(23) 

.UNN) . 

0<2<?4)  .OMIl/t . 

( /.  ( *.’!>)  .(  (  r )  . 

1 7(76) . (ITIIA)  . 

17(5  7) 

.rvi'O. 

7 ( 2 ( ?h ) . UPR ) . 

(2(29) . UPR1 ) . 

(2(1(1)  .1(0  . 

(7(31) 

./(PC). 

nddii.i/no. 

(2(ol) . 1MAX) . 

(2(14) . 1MAXA)  . 

(2d!.) 

.UMAX) . 

'J(zn«>l  .UMAX A)  • 

(2(17) . KMAX) . 

(2(18) .KMAXA)  • 

(2(39) 

.((MAX) 

UfcUU)  VAl.CNCfc 

(2(4(1)  .1)11)  > 

17.(41)  .ROT)  . 

(7.(45*) 

. 1XMAX) . 

i  (2(10)  .MUD) . 

(2(44) .MOPlO  . 

(714b)  .11) MAX)  . 

( 7 1 4(.) 

.(UMAX)  . 

2(2(47)  .in# 

(2(40) ,  1;:) . 

12(49) .  ID  . 

( 218(0 

.14). 

J(2(S1).H1). 

(2(SP)  .1(2) . 

(/(!>!)  .1(1)  . 

l/.(!.4) 

•  )|4) . 

4(2(88)  .Mb)  . 

(/(S(i).H8). 

( 2 ( !.7)  .i|7). 

(  2  ( !i(4) 

.1(8)  > 

8<2<r>9)  .09) . 

(2ii.O)  .1(1(1)  . 

( 2(i.l).  MU  >\ 

(/(».;>) 

«MHM)  . 

u  ( 2  (  83)  t  f  HAD)  . 

(2  (».4) » XttR(i)  • 

12)1.8)  .SN)  . 

(/.((•(>) 

.11X10  . 

7 <2(871 .HAUER) . 

(2<o»). MAOET). 

I2(i>9)  . l(AU).H)  . 

(2(70) 

•  OTRAU)  . 

0(2(71). HL2PC1). 

(2(  72)  .RliTuP) . 

1 2.1  73)  .SHELL) . 

<2(74) 

.MttOUlU)  . 

9 (2(70). T  U2U//E ) . 

(  2  (  /f.I.KCKi  • 

<21  77)  .SftOUMO) . 

(217/0 

.XI) 

UEoUt  VALLI/CE 

( 2 ( 79) » X2)  * 

1/(00) .Yl) . 

(2K(1) 

.  Y2) . 

1(2(02)  .CAI4LM)  • 

( 2 ( rtl ) .V1SC) . 

(2184). T). 

(21/18) 

.GMAX)  . 

2(2(00) .WSt4U) . 

(2(07) .WSGX)  • 

(2(8(4)  .OMAUH)  . 

(21/49) 

.  OMAX/O  . 

1( 2 (90 ) . SI ) . 

(2(91) .82) > 

(2192)  .‘51)  . 

(2193) 

*  84 ) . 

4(2(94)  iVj)  . 

(2(98) .uh). 

(2(98). S7). 

12(97) 

.S/4)  . 

8(2(0(11  .89) . 

(2(99) .810) 

UtOUl VmLLNCE 

(2 ( 100)  .HV(i)  . 

(2(101). MCM). 

(21 102). CD). 

ldiiun.svs). 

( 2 ( 1(14 )  .ATOM) . 

(2(108). CV). 

(2(108). GV). 

2 ( 2 ( 1 07 ) • SUMFfc ) • 

(2(108)  •(!(£  1 A >  • 

(21 109) . ALCM) . 

(21 110) .ANN) • 

1(2 ( ) i 1 ) .E2EK0) . 

(2(112). PW). 

(2(111). CAPS). 

(2(114) .HMU) . 

1(2(118) .COE) • 

(2(110) .SCR) . 

(2(117). ISM). 

(2(11(0  .SCUR). 

4(2(119) .AHN). 

(2(121))  .OTH)  . 

(2(121). IH). 

(21 122) . JH) . 

8(2(121). UTC) • 

(2(124) .IC)  . 

(2(128).  JO. 

121 120). KPT). 

X(2(127) . COUT) . 

(2(128) .HCP) . 

(21129) .MH) . 

(2(130). CO). 

0(2(111). Jl). 

(2( 112). J2). 

(2(111). Jl). 

( 2  <  1 34 )  *  J4 ) » 

7(2(118) »U5) . 

(21 116)  .  Jh)  • 

(2(138). SVMAX). 

8(2(119) .FRCUTCJ 

OEGUI VALENCE 

(2(140) »VAPE) . 

(2I14D.RAUE). 

(2(142) .CNUE). 

1 (2(141) . SCRE) . 

(2(144). IV).  . 

(2(148) >JV) . 

(2(14b) .IU) . 

2(2(147) i JU) . 

S/U48)  »DTVF  / . 

(2(149) .OTUP). 

(2(150). Ell) 

C  REVIbfcU  CALCULATION  OP  CAW  IN  ESK  7/19/bb 
2dAR=CAPK 

bCLlM=0.‘**^o«rt/Ar0M 
IF(THA.GT.2.0J  GO  TO  10 
CPL1=CGE*(  THA/SV)  **2*THA**2 
CAPL2-AMINKCPL1+SCLIM.CAPS) 

IF(THA,GT.I. )  GO  TO  /a 
CAPKzCAPL/ 

GO  TO  1000 

10  CPL3=8.62tiO*2BAK**2*AMAXIU.»2t)AK)»(FRfcXP(HNU/ 
1 THA ) - 1 , ) / ( S V*S9R  T ( TNA ) * A  TON  *  *2 *HNU* • 1 > 
CAPK=AMAX1 (CPL1.SCLIM) 

GO  TO  1000 

20  CPL4sd.8lt8*TMA*PPEXP(-Lll/fHA>*(1.0- 
1FREXP ( “HNU/ IMA ) ) /( ATOM*MNU**l) 

CAPK=AMAX1 (CAPL2.CPL4) 

1000  RETURN 
END 
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UI  FOR  SPRINT »  SPRINT/FJ 
SUtlRCUl  ML  bPRlNI 

U  I  M  L  N  b  1  0  N 


C 

C 

c 

c 


c 


Y  ( 100)  * 
2(150). 
UR ( 200 ) . 


U I ML NS I UN 

1U  ( 1200 )  »  V(1200).  AMX( 1200)  *  AIXU200). 

2MLTA(1200)  •  HMO  ( 1201) )  .  FIOUT(1200)»  CAP(1200>» 

3PUL(2b5)  >  IM1I5U)  . M2(b0)  .M3 (50)  .TAl)LM(bO). 

4UK(52)»  <(53).  XX(54).  UY  (  100)  » 

5tAU(15).  AMK  ( lb) »  PK(15).  UK(15)» 

O  r  AU  <  b><£  >  *  PH20U) »  PM20U).  ULI200). 

7FLtFl  ( 1U01 .  YAMC(IOC)  »SIOC(  1U0)  .UAMC(IOO)  . 

00(50) .  SUL  1L)  ( 4U0 ) »  T'.MP ( 12 ) #  HLAU(12> 

COMMON 
COMMON 
COMMON 
CUMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


P(  1200) * 
KFlt(1200>. 

YY ( 101) » 
I2( 150) » 


2 

.XX 

•  UR 

•  PR 

All) 

.  A1X 

•  AM 

.AMO 

IlIO 

.UOUNCE 

.UDXN 

.UDVK 

UY 

.L 

.FL) 

.FS 

P 

.PAUtiVE 

.POLO 

.I'TOTS 

PUL 

.OUT 

.RC 
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JR 
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•  M 
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ME 

•  M2 

»N 

.NK 

NO 

.NK 

•  G 
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HOUI 

.CAP 
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. 1SL NO 

u  u 

1  V 

A  L 

E  N 

AU 


.THETA 
.  AMX 
.t)VK 
.  FX 

.PPANOV 

•  HKO 

.URR 

.V 

.VTEF 

.MPS 

•  XLF 
» YU 
.IMS 
. JN 
.KR 

«  MC 

*  NKMAX 
►  TEMP 

*  I  GOT.) 


.YY 

.AREA 

.UX 

.OUT 

.PRR 

»HL 

.UT 

» VADOVE 

»VV 

.MS 

.XN 

.  2MAX 

.  I  MSA 

.JP 

.KRM 

.MO 

.NK1 

.  HE  AO 


OLOU I VALENCE 
1(2(4). PRINTS). 
2(2(8). PIUY). 
3(2(12). OAMX). 
4(2(10). TMU2 ) . 
5(2(20) » T YMAX ) » 
b(2(24) .UMIN) . 
7(2(20). NPR). 
0(2(32). NHC). 

9(2 (3b) . JMAXA) . 
OLUU I VALENCE 
1 ( 2 ( 43 ) .  NOL) ) . 
2(2(47). ID. 
3(2(51). Nl). 

4 ( 2 ( 5b ) . Hb ) . 
5(2(59)»N9)» 
b(2 (63) » TRAU) . 
7(2(67) .RAULR). 
0(2(71). HL2FC1). 
9  <  2 ( 7b ) » T 020NE ) . 
OhUUI VALLNCE 
1(2(02)  .CAttLN) . 
2(2 (Ob) .MSbU) . 
3(2(90) .SI) . 
4(2(94). bb). 
b ( 2 ( 90 ) . S9 ) » 


(2.12. PHOU). 
(2(b) .PRINTL) » 
(2(9). TM2). 
(2(13) .LTH) . 
(2(17). TMX2). 

( Z ( 21 ) . AMDM) . 
(2(2b).FEF). 
(2(29) .NPRI). 
(2(33). 1MAX). 
(2(37). KMAX). 
(2(40) .NO) . 
(2(44). NOPH). 
(2(40) . 12) . 
(2(b2).N2). 

(2 (bb) »Nb) . 
(2(00) .N10) . 
(2(b4) . XNRO) . 
(2(o0) . RAOtT) . 
(2( 72) .HbTOP) . 
(2(70). ECK). 
(2(79) »X2) . 
(2(03). VISC). 
(2(07). MSGX). 
(2(91). S2). 

(2 (9b) . b6) . 
(2(99). blO) 


(2(2). CYCLE). 
(2(b) .0UMPT7) . 
(2(10) . 5CYCLE ) . 
(2(14) .FFA) . 
(Z(IO).XMAX)  . 
(2(22). AMXM). 
(2(26). OTNA). 
(Z(JO).NC). 
(2(34) .IMAXA). 
(2(30) .KMAXA)  . 
(Z ( 41 ) . KUT ) . 
(2(45) .NIMAX) . 
(2(49). 13). 
(2(53). N3). 
(2(57) .N7) . 
(2(61) .Nil) . 
(2(05). SN). 
(2(b9) . RAUEM) » 
(2(73) .SHELL) * 
(2(77) .SMOUNO) . 
(2(00) .Yl).  - 
(2(04). T). 

(Z ( 00) .GMAUH ) . 
(2(92). S3). 
(2(96). S7)» 


(2(3) .OT). 

(Z(7) .CSTOP) ► 

( Z ( 1 1 > .SPROH) . 

( Z ( 15) .FFU) . 

<Z ( 19) . TXMAX) . 

(Z(23).DNN>. 

(Z(27).CVIS)» 

( Z ( 3 1 ) . NPC ) . 
(2(35). JMAX). 
(2(39). NMAX) 

( Z (42) » IXMAX) » 
(Z (46) .NJMAX). 
(2(50). 14). 
(Z(54).N4). 
(Z(50).N8). 
(Z(62).NRM). 

(Z (66) .OXN) . 
(2(70) .DTHAO) » 
(2(74)  »l)!)OUNO) . 
(2(70). Xl) 

(2(81 > . Y2> . 
(2(85) .CMAX ) . 
(2(89) .GMAXR) . 
(Z(93).S4>. 
(2(97). S8). 
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CEUUI VALLNCL  (2  ( 100 )  .  MVb)  .  (2 ( 101 ) . HCH ) .  ( 7  ( 102 )  .Cli) . 

1(2(103). 5VS).  (Z(104)  (ATOM) »  (Z(  10b)  »CV)  »  (Z(lOb).GV). 

2(Z(  iU7)  .SUMFU  .  (2(108) .BETA) .  ( 2 ( 109) » ALCO ! .  (2(110).  ANN ) » 

3  ( 2 1 1 1 ) . E2EKO ) ,  (2(  1121  »PK>  »  (Z( 113) .CAPS) .  »HMUI . 

3U(115)  .COE) .  (Z(llb).SC;').  (Z(ll7)*ISK).  (Z(llU) .SCOR) . 

4(2019) .AMN) .  (Z(120) .DTK) •  (2(121). IH).  (Z(122)»JH)» 

5(2(123>.UTC).  (Z ( 124 ) » 1C ) »  (2(125). JC).  (2(12b) .RFT) . 

X(2(127).LUUT) .  (2(128) »HCP) .  (2(129). HM).  (Z(130).CO). 

b(Z(131)  »J1) .  (2(132)  .  J2)  .  (ZU33).JJ)»  (Z(134).J4). 

7(2(135) » J5) .  (Z(13b) . J6) »  (2(138) .SVMAX) . 

8(2(139) .FHCUTO 

UEUUI VALENCE  (2(140) *VAPE) •  (2( 141 > .RAUL) »  (Z( 142) »CNOE ) . 

1(2(143). 5CKE).  (2(144). IV).  (Z(145).JV>»  (2(14b).IU). 

2(2( 147) . JU) .  (2(148). OTVF).  (2(149) »DTUF ) .  (2(150). Ell) 

ObOUl VALENCE  (XX(2) . X(l) )  .  (UH.UL.FLLFT) .  (UR(IOO).VAHC). 


KPK(lUO).blGC).  (PK.PL.GAMC) .  (UKE.  THETA) .  (IIR.TAU). 

2 (UK( lb) . AMK ) .  (UK (31 ) .PK) .  (UK (4b) .OK ) .  (YY(2).Y(1)) 

COMMON/HEADEK/  TITLL'48).  TITLE1 (48) .  T1TLE2(48).  TlTLE3(b) 


UATA  T1TLE/288HPR0U 

CYCLE 

UT 

PK INI SPR I NTLDUMPT 7CST0P 

PIUY 

TM 

12  SCYCLLSPKOU  6AMX 

E1H 

FFA 

FFU 

TMD2 

TMXZ 

XMAX 

TXMAX 

TY 

2MAX  AMUM  AMXM  UNN 

UMIN 

FEF 

DTNA 

CVI5  * 

NPR 

NPR  I 

NC 

NP 

3C  NKC  IMAX  1MAXA 

JMAX 

JMAXA 

KM  AX 

KMAXA 

NMAX 

ND 

KUT 

U 

4MAX  NOU  NOPN  NlMAx  NJMAX 

11 

12 

7 

UATA  TITLE1/288HI3 

14 

Nl 

N2 

N3 

N4 

N5 

N6 

N7 

1  N8  N9  NlO 

Nil 

NKM 

TRAD 

XNK8 

SN 

DXN 

RADER 

RA 

2UET  HAUEU  DTK AO  HE2FCTRST0P 

SHELL 

BBOUNUTOZONEECK 

SBOUNDX 1 

X2 

3  Y 1  Y2  CAULN 

vise 

T 

GMAX 

KSGU 

MSGX 

GMADH 

GMAXK 

SI 

4  52  S3  54 

S5 

S6 

S7 

/ 

UATA  T1TLE2/288H58 

S9 

510 

HVU 

HCU 

CB 

svs 

ATOM 

dr 

1  GV  SUMFE  BETA 

ALCO 

ANN 

E2EK0 

PK 

CAP’S 

HNU 

COE 

sc 

2H  I5K  SCUR  AHN 

DTH 

IH 

JH 

DTC 

IC 

JC 

RFT 

CD 

3UT  HCP  HH  CO 

J1 

J2 

J3 

J4 

J5 

J6 

sv 

4MAX  FKCUTCVAPE  HADE 

CNUE 

SCRE 

IV 

/ 

UATA  TITLE3/36HJV 

1U 

JU 

DTVF 

U7UF 

EU 

/ 

100=1 
K0UN1 =1 
IFRGM=1 
1T0=U 

KKITE (8. 10)  (HEAL) (I ) • 1=1 • 12) .CYCLE 
10  FORMAT (37H1  HECTIC  PANIC  DUMP  OF  PROBLEM  .  .  .  12A6.5HCYCLEF6.0) 
UNITE (b. 3)  S’. 

3  FORMAT(7H  31  =  P10.4) 

15  KRITE(6.20)  (TITLE! 1 >» I=1FR0M. ITO) 

20  FORMAT (1H0  /  5X.8A15) 

60  TO  (22.22.22*24.26.26)  IGO 

22  2KITE(6.23)K0UNT.(Z(I).I=IFK0M.IT0> 

80  TO  30 

23  FORMAT (IX. I 5. 1P8E15.7) 

24  8KlTE(b.25)K0UNT. (2(1). I=IFKOM. ITO) 

25  FORMAT (IX. 15. 1P3L15.7»5(5X»  HO) ) 

60  TO  30 

26  NKITE(b.27)K0UNT . (2( I ) . I=IFKOM. ITO) 

27  F0KMAT(1X.I5.8(5X. 110)1 

30  IGO=IGO*l 
K0UN1=K0UNT+8 
IFK0M=IFH0M+8 
IT0=IT0+8 

1F(I80.LT. 7)  GO  TO  15 
160=1 

31  WKITE(8.20)  (TITLE(I) »I=IFROM. ITO) 

60  TO  (32. 34. 36. 36. 3b. 36). 160 

32  KKITE(6*27)K0UNT»(2(I).I=IFH0M»IT0> 

60  TO  40 

34  NRITE(b.35)K0UNT . (2(1) . I=IFROM. ITO) 


101 


AFWL-TR-66- 108,  Vol  II 


3b  KOKH  AT  (lXrlbrb(bXrUU)r  1P2E  1‘j.7  ) 

00  TO  40 

3b  NKITE(b*23>K0UNT.  (2( )) »  U1FK0M.  1T0) 

40  100=100+1 
1KK0M=1KK0M+B 
1T0=1T0+B 
K0UNT=K0UNT+0 

IK (100. LI. 7)  00  TO  3 1 
100=1 

41  NK1Te(O»20)  (TlTLL(l) » T=lFKOM*  X TO > 

00  TO  (42»42»44»4b*4B#42) *  100 

42  NKlTE(b.23)K0UNT*(2(l)*I=IFK0M.lT0) 

00  TO  bU 

44  NKlTL(b.4b)K0UNT#(2(l)*l=IFH0M» 1T0) 

4b  KOKMAT ( 1 X r lb* 1P4L1S. 7*bX»llU*3Elb.7) 

00  To  bO 

4b  NKITE(b»47)KOUNT«(2(l)»l  =  lFROM.nO) 

47  FOKMA l(lX»lb»2(bXtliU)* lPElb.7»2(bX« 110). 3E lb. 7) 
00  TO  bU 

40  NKlTL(b*49)K0UNT»  (Z( 1 ) ' 1=1FK0M« IT  0) 

49  KOKMAT (IX* lb» lP2Elb.7»b(SX* 110) ) 

bO  100=100+1 

1KK0M=1KK0M+B 

1T0=IT0+B 

KOUNT=KOUNT+B 

IK ( lOO.LT . 7 )  00  TO  41 

NKlTE(b'2U)  (TITLED ) • l=14b» lbO) 

NKlTt(b.23)K0UNT» (2 ( I > » i=14b. ISO > 

WHITL (b» 111 > 

NKITC(b«ll2) 

NKITE<bfU3) 

NKITt (6« 114 ) 

WKITE (br lib) 

UKlTt(b* lib) 
lK(Sl-4.010B)b3*b4.b2 


b2  lF(51“4.012b)S3*b4*S3 

b3  1F( AUS(ECK) .0T .DMlN)  NKlTE(b»117>  ECKrDMIN 


111  FOKMAT ( 79H1S1 

EKKOK  NUMUEK 

TO  FLAO  THE 

SUBROUTINE  NH 

11CH  CALLED  MACHINE 

EXIT) 

112  KOKMAT (bJHO 

4 .0106  NORMA u 

EXIT 

after 

MAX.  CYCLE//) 

113  FOKMAT (B9H 

1.  MAIN 

b. 

CDT 

9.  PH2 

1  13.  Eb 

17. 

PAC  ) 

114  KOKMAT (B9H 

2.  CAROS 

b. 

SCKC 

10.  FLA 

10  14.  JMK 

IB. 

SETUP) 

lib  FOKMA T(B9H 

3.  INPUT 

7. 

U01L 

11.  UJL 

ION  lb.  MF5T 

19. 

ESK  ) 

11b  KOKMAT (B9H 

4.  EDIT 

B. 

PHI 

12.  LIU 

ItX  lb.  KF5T 

20. 

) 

117  KOKMAT (cBHO  ENEKOT  CHECK  EKKOK.  ECK  =1PE1S.7*7H  DMIN  =E15.7) 


b4  KENlHU  10 

1F(N7.EU.10)  00  TO  1000 
KEM1UU  N7 
1000  CALL  EXIT 
EMU 
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SECTION  in 

EQUATIONS  OF  STATE  FOR  IONIZED  VAPOR 


3.1.  INTRODUCTION 

Theoretical  studies  of  hydrodynamics  and  radiation  transport  require 
information  about  the  thermodynamic  state  variables  of  the  system.  In 
many  applications,  local  thermodynamic  equilibrium  (LTE)  may  be  assumed. 
Under  this  assumption,  the  law  of  mass  action  can  be  used  to  solve  for  the 
equilibrium  concentrations  of  every  species  present  in  the  system. 

The  methods  described  in  this  section,  and  the  EIONX  computer 
routines  based  upon  them,  apply  to  equilibria  involving  neutral  atoms,  ions, 
and  electrons.  At  low  temperatures  (generally  less  than  2  ev),  molecular 
constituents  may  also  be  present.  Their  equilibria,  however,  are  calculated 
by  other  methods.  The  EIONX  codes  provide  for  linkage  of  molecular  equi- 
librium  routines  in  such  a  way  that  the  contribution  of  the  latter  to  the  ther¬ 
modynamic  properties  of  the  system  can  be  taken  into  account. 

The  law  of  mass  action  was  applied  by  Saha  in  1920  to  the  equilibrium 

Cs**  Cs  +  e  . 

_3 

With  concentrations,  in  cm  ,  of  neutrals,  ions,  and  electrons  denoted, 
respectively,  by  (Cs]  ,  [Cs]  and  [e  ]  ,  the  law  states  that  for  equilibrium 
at  T°K, 


[e]  (Cs]  -AG(T)/kT 
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where  AG(T)  is  the  free  energy  change  in  the  reaction.  Similar  relation¬ 
ships  hold  for  equilibrium  concentrations  of  more  highly  ionized  stages  and 
excited  ionic  stater*.  If  the  perfect  gas  law  is  assumed,  the  following  general 
relationship  can  be  shown  to  hold  for  the  relative  concentrations  or  mole 
fractions,  X.,  of  ions  of  some  atomic  species  in  stage  j  (ionic  charge  je): 


X. 


X 


j-1 


r!i  /VkT 

uj-i 


where  V  is  the  jth  ionization  potential  of  the  atom,  u.  is  the  partition 
function  for  stage  j,  and  T  is  a  parameter  which  is  inversely  proportional 
to  the  electron  density,  and  therefore  depends  on  the  concentrations  of  sill 
ionization  stages  of  every  atomic  species  present. 

The  calculation  of  the  state  of  the  vapor  at  a  given  temperature  and 
mass  density  therefore  involves  solution  of  a  comparatively  extensive 
system  of  coupled  nonlinear  equations  for  the  concentrations  of  c-  :h  con¬ 
stituent.  The  EIONX  routines  perform  this  task,  with  the  aid  of  certain 
simplifying  assumptions,  and  then  proceed  to  the  evaluation  of  the  thermo¬ 
dynamic  btate  variables  of  the  system.  These  simplifying  assumptions  are 
most  valid  in  those  regions  of  phase  space  (essentially  characterized  by 
T  »  1)  in  which  particle  interactions  are  sufficiently  infrequent  that  the 
distribution  of  ionic  states  is  sharply  peaked.  In  other  regions,  not  only 
these  assumptions  but  also  those  more  basic  ones  mentioned  in  the  pre¬ 
ceding  paragraph  are  likely  to  be  invalid. 

3  2.  FORMULATION  OF  THE  LINEAR  EIONX  ROUTINES 

3.2.1.  Definitions 

'  3  -1 

T  Specific  volume,  cm  g  , 

6  Temperature,  ev;  6  =  kT, 

P  Pressure,  dynes  cm‘2, 

Specific  internal  energy,  ergs  g  \ 


E 
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Number  fraction  of  element  i  in  the  material; 

S  a.  =  1, 

i  i 

Atomic  number  of  element  i, 

.th  . 

3  ionization  potential  of  element  i, 

Number  fraction  of  element  i  in  the  j*  ionization 
stage;  sx!  =  1 

j  J 

_■  z* 

Mean  ionic  charge  of  element  i;  Z1  =  2  j  x!  , 


Mean  ionic  charge  of  material;  Z  =  s  a.  Z1, 

i  1 

Atomic  mass  number  of  element  i, 

Mean  atomic  mass  number;  A  =E  a  A 

i  1 

Gas  constant  in  ergs  g“1ev”1;  <P  =  eR/kA  =  eN  /A 

o 

*  9.  65x10H/a, 


-3  3/2 

Constant  in  Saha  equation;  c  =  2h  (2irm  )  '  m  eR/k 

e  P 


22.99 


-5/2  -3 


—  e  ergs  ev  cm  , 


Electronic  "nondegeneracy"  parameter; 

3/2,  - 
r  =  erg  /  <pz, 

1°  =  ®  In  (ct6  3^2 / <p). 


0]  =  exp  [(1°  -  V*)/0], 


I  =  e  In  T  =  I  -  6  In  Z, 


Mean  number  of  atoms  per  molecule. 
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3.2.2.  The  Saha  equation  for  Ionic  equilibria 

-v1/^  {i-vb/fl  p\ 

re  J  =  e  J  = _ i  1  <  j  <  zi 

2 

The  ratio  of  partition  functions  u./u.  ,  has  been  omitted  from  this 
equation.  It  is  usually  of  order  unity,  in  contrast  to  T  and  the  exponential 
factor.  The  effect  of  omitting  this  ratio  is  thus  equivalent  to  a  small  shift 
in  temperature.  The  pressure  lowering  of  the  ionization  potential  is  also 
neglected. 

It  should  be  noted  that  the  distribution  of  populations  x".  is  in  general 
strongly  peaked  near  those  stages  j  for  which  V*  “  I.  For  v\  =1,  in  par¬ 
ticular,  X  and  X*  are  equal,  while  the  adjacent  terms  Xi  and  X1  are 
J  J-1  j+1  j-2 

smaller  by  factors  such  as  exp(-AV/0),  where  AV,  the  separation  of  the 

ionization  potentials,  is  usually  large  compared  with  6  .  The  mean  ionic 

charge  Z  ,  for  I  =  V*,  is  thus  approximately 

3 

Z1-  (j-1)  +  jxj  “  j  -  1/2 

This  fact  is  used  as  the  basis  for  an  approximate  interpolation  procedure 
which  avoids  the  need  for  solving  the  entire  coupled  set  of  Saha  equations 
yet  preserves  some  of  the  basic  characteristics  of  any  such  solution, 
namely,  that  Z1  is  *?  continuous  monotonic  increasing  function  of  I  which 
assumes  half-odd- integer  values  when  I  is  close  to  an  ionization  potential. 
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3.2.3.  The  ETONX  Model  for  Mean  Ionic  Charge 


,  i-v1  , 

z1  =  j  -  2  + _ liL 

J  2  „i  „i 


v: 

J 


V*  , 
J-l 


v]-i  -  I  s  v! ,  j  =  2, 


zl  = 


V!  "  1 

1  +  exp  ( - ) 

6 


-1 


0. 

-  X1  -  1 

*1 


I<  V 


I 


x1  = 
xz 


1  +  exp 


t^)f 


p: 


Z  +p. 


z1  =  z1  -  1  +  x^.  i> 


I  >  v! 


That  is,  for  I  between  two  ionization  potentials,  ZX(I)  is  the  linear  inter- 
polant  between  the  half-integer  values  defined  above;  and  for  I  less  than 
the  first  ionization  potential  or  greater  than  the  last,  it  is  assumed  that 
only  two  ionization  stages  are  populated  (the  neutral  or  stripped  stage, 
respectively,  and  the  adjacent  stage),  in  which  case  a  single  Saha  equation 
determines  the  state. 

These  assumptions,  together  with  the  defining  relations 


=1  * 


1  =  1-0  In  Z 


form  the  basis  for  an  iterative  solution  for  I,  Z,  and  the  Zl,  given  0  and  r 

r° 

or  I  . 

3.2.4.  Computation  of  P  and  E 

The  thermodynamic  variables  to  be  computed  are  the  pressure  P, 
the  internal  energy  E,  and  their  derivatives  with  respect  to  the  independent 
variables  T  and  0.  All  of  these  quantities  depend  upon  Z,  as  well.  Since 
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Z  is  not  an  independent  variable  but  a  function  of  T  and  8  determined  by 
the  model  discussed  above,  it  is  necessary  to  impose  a  thermodynamic 
consistency  condition  of  some  sort  on  the  definitions  of  P  and  E,  A  suitable 
choice  is  the  thermodynamic  relation 

<§f>0  =  8  (Sf)T  -  P 

For  the  pressure,  the  perfect  gas  law  is  assumed: 

P  =(N-1  +  Z)  Wl t 

and  for  the  internal  energy  a  sum  of  random  kinetic,  ionization,  and 
dissociation  terms: 

E  =  4(N_1  +  Z)  <Pfl+  <P  V  a  £  +  E «. 

^  L,  i  i  dis 

i 

where  E^.g  is  the  molecular  dissociation  contribution,  and  £ ,  the  mean 
ionization  energy  per  atom  of  element  i,  is 


j-1 

vk+vi-i<zi-j  +  *M 

(vj '  v]-i)(zi  • j  +l,2/2 

k-\ 

v.1.  <  isv! 
j-i  j 

1  <  vi 

£  =  zV 

i  1 

i 

i 

Z  -1 

v*  +  (? .  ** + 

1>yiz 

k=l 

These  definitions  for  are  the  simplest  which  conform  to  the  thermo¬ 
dynamic  consistency  condition  and  also  to  the  assumptions  made  above  for 
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where 
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Edis’  N’  and  their  derivatives  are  obtained  from  molecular  equilibrium 

routines  external  to  EIONX.  If  no  such  routines  are  used,  N  is  taken  to 

be  1  and  its  derivatives  are  taken  to  be  zero;  similarly,  E  .  =0. 

dis 

The  velocity  of  sound,  Cq,  is  determined  from  these  derivatives  by 
using  the  thermodynamic  relation 


When  only  one  element  is  present  in  the  material,  a  number  of  sim 
plifications  are  possible  in  the  formulation  and  in  the  program  coding; 
furthermore  a  more  efficient  iterative  procedure  is  available.  Two  ver¬ 
sions  of  the  linear  EIONX  routines  were  Jierefore  prepared.  The  more 
general  multi-element  procedure  is  described  first. 


3.  3.  1.  Multi- element  Iterative  Procedure 


1.  Initialize  (i.  e. 

L.  1°  -  6  In  Z,  . 

(n) 


iteration  index  n 


1): 
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5.  Apply  Aitken  extrapolation  every  third  pass. 

6.  If 

Z(n+  1)  '  Z(n) 

- Z -  >  e 

Vi) 

then  n+  1  “*n  r.nd  repeat  from  step  2. 

7.  Otherwise,  1°  -  6  In  Z,  —  I. 

(n+  1) 

8.  Compute  Z,  its  derivatives,  and  all  of  the  thermodynamic 
variables  defined  in  Section  3.  2. 

The  procedure  converges  unless,  for  some  i, 

0/Z  _ 

“7 - • — >  1  and  1/2  <  Z  <  Z  -  1/2 

v;  -  v.  , 

j  j-i 

Since,  usually,  vj  -  vj^  >  20,  failures  are  exceptional.  They  have 
occasionally  been  noted  for  materials  at  moderately  low  temperature  and 
very  high  density,  essentially  also  the  conditions  for  electron  degeneracy 
and  consequently  for  inapplicability  of  the  entire  formulation.  If  conver¬ 
gence  does  not  occur  in  20  iterations,  a  flag  is  set  and  the  last  iterate  is 
used. 

3-  3«  2*  Single -element  Iterative  Procedure 
For  Vj  <  Is  Vz, 

1°  -  0  In  Z  -  V. 

Z  =  j  "  5  +  - y  _  y - =  a  -  b  In  Z 

J  j-1 


3.  compute  z\ 

4.  t.  z1  — : 

*—  i 


'(n+l)* 
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v  **  t  <vj  it- 1 


where 


1°  -  V. 


a  =  j  -  1.5  + 


Jl 


1 


v.-v.  , 

i  j-i 


b  = 


V.-V.  . 
J  J-l 


If  b/ Z  <  1,  the  iteration  procedure 


Z(n+l)  =  a-bl,lZ(n) 


converges,  since  then 


Z/  ,  i  \  “  z#  ,=  -b  In 
(n+1)  (n) 


1  ,  Z(n)  '  Z(n-1) 


*(n-l) 


Si  _b 


Z(n)  Z(n-1) 


(n-1) 


and  the  convergence  ratio  is 


Z(n+  1)  '  Z(n) 


Z(n)  Z{n- 1) 


a  -  <1 


By  a  similar  argument  it  can  be  shown  that  if  b/Z  >  1,  the  iteration 


procedure 


In  Z 


(n+1) 


b 


is  convergent. 

There  is,  however,  a  far  more  efficient  procedure  for  the  single¬ 
element  case.  For  V.  .  <  I  s  V.,  let  a  s  j  .  1/2  and  x  =  (I-  V.  ,)/ 

_  J-1  J  J-l 

(V.-V.  . )  so  that  Z  =  ot  +  x  with  0  <  x  —  1. 

J  J-l 

The  equation 
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may  then  be  written  as 

*  ;r. .!'  *>  ■  *  *  i.  *  •  : ,  v  .  .  \4*l  jj’«c 

a+x  =  a-  bln(a+x) 

so  that 


A  '"l/. 

*  -  ^  '  'i 

•  «  ■  »4v 1 ' 


x=-a+a-b 


In  a  +  2 


j^0  2k  +  1 V  2a  +  x' 


2k+l 


or 


x 


(1  + 


2b  j-1 


2«+  x 


-a  +  a  -b 


This  expansion  of  the  logarithm  converges  provided  that  a  >  0  and 

-Qf  <  x  <  +«w;  both  conditions  are  satisfied  in  this  application.  The  iterative 

solution  for  x  is  then  straightforward: 


x^j  =  -«  +  a  -  b  In  a 


2b 


x 

2  a  +  x 


(n+1) 


■( 


1  + 


2b 


2a  +  x.  ./ 

(n) 


-1 


[•“ 


2k+ln 


+  a  -  b  In  a  -  2b 


2k 


—  ^  ) 
+  l'2a  +  x,  / 

(n) 


This  procedure  is  more  than  twice  as  efficient  as  the  general  multi-element 
procedure  for  a  single  element,  primarily  owing  to  the  elimination  of  most 
of  the  logarithm  calculations  and  the  bookkeeping  required  for  additional 
elements. 


3.4.  PROGRAM  FLOW 

The  EIONX  routines  are  called  by 

CALL  EIONX  (X1,X2,M1,X3) 

where  XI  is  the  temperature  9  in  ev;  X2  is  the  specific  volume  r  in  cm3/g; 
Ml  is  a  material  identification  integer  discussed  below;  X3  on  entry  speci¬ 
fies  any  special  options  as  discussed  below;  and  X3  on  exit  contains  an 
error  parameter  if  a  noncatastrophic  error  has  occurred,  or  zero  if  no 
error  has  occurred.  Catastrophic  errors  cause  an  immediate  return  with 
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a  nonzero  value  for  the  error  flag  ElON(14).  The  calling  program  should 
check  both  X3  and  EION(14)  on  return,  and  take  appropriate  action  if  either 
flag  was  set. 

On  entry  to  EIONX,  a  nonzero  value  for  EION(14)  enables  a  call  to 
one  of  three  molecular  equation- of- state  routines,  provided  that  the 
material  identifier  Ml  is  set  to  one  of  the  following: 

102  (air) 

101  (polyethylene) 

306  or  6  (carbon) 

The  subsequent  procedure  for  air  is  as  follows:  Ml  is  changed  from  102  to 
208  and  a  return  is  made  to  the  calling  program,  which  then  calls  a  special¬ 
ized  a  r  routine.  For  carbon  and  polyethylene,  the  molecular  subroutine 
CMOL  (for  carbon)  or  ES1LMS  (for  polyethylene)  is  called  directly  for  cal¬ 
culation  of  Ed.s>  N,  and  their  derivatives.  On  return  to  EIONX,  Z  and  the 
other  ionic  variables  are  calculated  in  the  same  way  as  in  the  monatomic 
case  (an  approach  which  is  more  valid  for  carbon  than  for  polyethylene,  but 
is  considered  satisfactory  for  both  materials).  The  final  results  contain 
contributions  of  both  molecular  and  ionic  processes. 

3.5.  COMMUNICATIONS  BLOCKS 

Except  for  the  four  subroutine  parameters,  communication  with 
EIONX  is  handled  through  arrays  in  named  COMMON  blocks.  The  contents 
of  these  are  listed  below.  At  the  top  of  each  list  are  the  block  name,  array 
name,  and  array  dimension;  and  for  each  element  of  the  array,  the  index, 
equivalent  names,  and  descriptive  information,  including  variable  type  if 
different  from  the  implicit  type  of  the  name,  are  given. 

/LMS/EIQN(20):  The  main  output  communications  region 
EION  (1)  THETA,  0,  temperature,  ev 

(2)  TAU,  r,  specific  volume,  cm  /g 

(3)  ZBAR,  Z,  mean  ionic  change,  or  free  electrons  per  atom 
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i  .  »  ‘  *  **  * 

(4)  ZBARI,  Z1,  mean  ionic  charge  of  a  constituent  element 

(5)  PHI,  <p ,  gas  constant,  erg/g/ev 

(6)  ESUM 

(7)  PRESHR,  P,  pressure,  dyne/cm^ 

(8)  ENERGY,  E,  specific  internal  energy,  erg/g 

(9)  DEDTHT.  (8E/8  0  ^  =  C^.,  specific  heat  at  constant  volume 

(10)  DEDTAU,  (8E/8  r) 

(11)  SNDSPD,  r(-0P/0T)i=c  ,  sound  speed 

o  o 

(12)  DPDTAU,  (8P/0r)e 

(13)  DPDTHT ,  (8P/8  0)T 

(14)  If  nonzero  input,  molecular  EOS  is  called;  if  nonzero  output, 
fatal  error. 

(15) 

(16)  ZMEAN,  S  a  .Z  ,  mean  atomic  number  of  elements  in  the 

1  material 

(17)  NBAR,  N,  mean  number  of  atoms  per  molecule;  REAL  type 

(18)  ZSUM1 

(19)  ZSUM2 

(20)  ZSUM3 

/LMSB/U(1):  A  variable -length  input  block,  supplied  by  the  MARI  routine. 
Any  number  of  elements,  greater  or  equal  to  those  actually  needed,  may  be 
represented,  and  in  any  order;  preferably  those  used  most  should  be  first. 
In  the  MARI  routine  itself,  each  element  is  represented  by  an  array  of 
DATA  statements,  with  the  chemical  symbol  used  for  the  array  name 
(which  must  be  REAL  type).  Each  array  contains,  in  order,  the  atomic 

number  Z1,  the  mass  number  A*,  and  the  ionization  potentials  V-!, 

£  1 
j=l,  2, . . . ,  Z  .  (Higher  potentials  which  will  not  be  needed  in  the  calcula¬ 
tion  may  be  entered  as  zero.)  In  EIONX,  /LMSB/  contains  a  single  array 
name  U,  the  contents  of  which  are  of  course  identical  to  those  entered  in 
MARI  provided  that  the  system  loader  uses  MARI  to  define  the  COMMON 
block. 
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U{1),  Z^1),  charge  number  of  first  element 

/  i  \ 


(2),  A^\  mass  number  of  first  element 


(3),  vj1  \  first  ionization  potential  of  first  element 


,U) 


(Zv  1  +  2),vJ^  ,  last  ionization  potential  of  first  element 


<Z<  ^  +  3),Z^2^,  charge  number  of  second  element 
etc . 


ALMSC/M^'^I)  :  Material  definition  and  indexing  information.  M,  Z  and 
PART  are  equivalent  array  names. 

M(l),  NOLMNT,  number  of  elements  in  the  material.  Note:  INTEGER 
type. 

Z(2),  Z  ,  charge  number  of  first  element  in  the  material 


PART(3),  «  number  fraction  of  atoms  of  first  element  in  the  material 
M(4)  index  in  the  U  array  of  the  first  entry  (Z1)  for  this  element. 


z(5),  Z  ,  mean  ionic  charge  for  this  element 

z<6>'  <fr>* 


J. 


W)>  (-T  +  -|) 
Z(8),  J 


z<9).  ( j§)T 


0Z1 


zdo).  (fr)e 
zdij.E1 


j 


See  Section  3.2.4  for  definitions. 


Z(12) 

Z(51) 


10  word  groups  like  Z(2)-Z(ll)  for  up  to  4  more  elements 


/LMSD/TLMSQO) 


TLMS(l),  BACK(l),  Z^,  previous  iterate  for  Z 

»  «  1 


(2),  BACK(2),  Z^n  second  previous  iterate  for  Z 


(3) 

(4) 


A,  mean  atomic  mass  number 
temporary  storage 
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1 , 


; 


I?  i.'j 


'll  'fi 
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’ v,  » 


(5)  ln(rZ) 

(6) ,  XBAR,  X1 

(7) ,  ZBARLN,  In  Z 


(8)  temporary  storage 

(9) ,  XI,  <P(N-1  +  Z) 


I  =  6  In  r 

z(n+1)  -  2Z^  +  z^n-1^ 


-(n+1)  _  ^(n) 


terms  for  Aitken  extrapolation 


V1  -  V*  . 
3  J"1 


Vli  +  Vl2  +  *** 


+  v]-> 


(15) ,  DZ-DTAU  [BZ/8  t  )q 

(16) ,  DZDTHT  (8Z/3  0)T 


(17)-(30) 


temporary  storage 


ILEMNT 


/LMSE/:  Internal  flags,  DO-loop  indices,  etc. 

MATERL  ,  material  Identifier,  from  subroutine  parameter  Ml 

ILEMNT  atomic  charge  number,  U(I1) 

SNAFU,  PATH,  internal  error  flag,  special  option  flag 

11  index  of  Z  in  U  array 

12  j,  upper  ionization  stage  index 


index  of  V.  in  U  array 
J 


iteration  counter 


18,  NJUMP 

19,  BYPASS,  internal  flow  flag;  INTEGER  type 


110,  M2 


J2,  L0 


.W' 

W-'viQ 


•  j* 


i  Wi  l  :i  V  * 
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J4 

J5 

J6 

/EOSIN/EIONIN(30):  Specifies  material  composition  for  nonstandard 
-  materials. 


Elements  are  in  order  of  increasing  Z. 

EIONIN(l)  (=NOLMNT),  number  of  elements  in  this  material;  REAL  type 

(2) ,  Z^,  atomic  charge  number  of  first  element 

(3) ,  number  fraction  of  first  element 

(4) ,  atomic  charge  number  of  second  element 


(2*NOLMNT+l),  Last  entry  for  first  material 

.  up  to  2  additional  materials,  specified  as  above. 

• 

(28) ,  FESTER(l),  option  flag  for  molecular  routines 

(29) ,  ZBRMIN(l),  for  Z  less  than  this,  ionization  is  ignored. 

(30) ,  EPSI(1),  convergence  criterion  for  Z  iteration 

/LMSG/CARBNZ(10):  Communications  area  for  carbon  molecular  routine 
CMOL„  The  first  six  words  contain  molecular  contributions  to  energy, 
pressure,  (8E/8t)0,  (8E/80  )T  ,  (8P/8t)0,  (  8P/ 8 9  )7>  respectively. 

/  LMSESN/  TLMSB(1 5):  Communications  and  working  storage  for  poly¬ 
ethylene  molecular  routine  ESILMS.  Words  12,  13,  and  14  are  equivalenced 
to  DNDTAU,  DNDTHT,  and  DISNRG,  i.  e. ,  to(8N/8r)0.  (9N/8fl)T,  and 

E  respectively, 
dis 

3.  6.  MATERIAL  IDENTIFICATION 

The  third  subroutine  parameter,  Ml,  identifies  the  material  accord¬ 
ing  to  the  following  list: 

1-100  Single-element  materials;  M1=Z,  the  atomic  charge  number, 
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101 

Polyethylene 

102 

Air 

103 

Teflon 

104 

Nylon-Phenolic  A 

105 

Wet  tuff 

106 

Refrasil 

107 

Phenolic  A 

108 

Lithium  Hydride 

109 

Salt 

110 

Magnalium 

111 

HMX 

112 

Refrasil  B 

113 

Phenolic  B 

114 

Refrasil  C 

115 

Carbon-phenolic 

116 

First  material  specified  in  /EOSIN/ 

117 

Second  material  specified  in  /  EOSIN/ 

118 

Third  material  specified  in  /EOSIN/ 

119-200 

Currently  invalid  but  reserved  for  multi-element  material 
specifications 

201-300 

Reserved  for  equation-of- state  routines  not  under  control 
of  EIONX 

301-400 

Reserved  for  special  isotopic  compositions  of  single¬ 
element  materials;  Ml  =  300+Z 

Care  should  be  taken  to  use  the  multi-element  version  of  EIONX  if 
100  <  Ml  -  200.  In  other  cases  the  single-element  version  is  recom¬ 
mended.  All  elements  called  for  in  the  Ml  specification  must  be  repre¬ 
sented  in  the  table  of  ionization  potentials  in  /LMSB/. 

3.7.  OPTIONS 

The  fourth  subroutine  parameter,  X3,  may  be  used  to  specify  a 
limited  part  of  the  entire  EIONX  procedure.  X3=0.  gives  the  complete 

3 

calculation  and  is  the  normal  setting.  X  =-l.  provides  for  computing  only 
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the  two  quantities 

PHI  =  9.648679X1011/ A 


ZMEAN  =  Z  a.Z1 
1 
1 


jr- 


X3=-2.  suppresses  all  contributions  from  ionization  by  bypassing  the  Z 
calculation  and  setting  Z=0.  X3=-3.  is  designed  to  provide  communication 
with  non-equilibrium  ionic  routines;  the  latter  supply  as  input  the  following 
quantities  in  /LMSC/  for  each  element  in  the  material: 

M(10*i-6)  Index  in  the  U  array  of  the  first  entry  (Z*)  for  the  i**1 
element. 

_i  ^ 

Z(10#i-5)  Z  ,  mean  ionic  charge  of  i  element. 

Z(10*i-8)  Z*,  charge  number  of  i**1  element. 


The  EIONX  routine  then  evaluates  the  thermodynamic  variables  P,  E,  C^., 
etc.,  and  returns  control  to  the  calling  routine.  For  Ml  =  101,  6  or  306, 
this  option  should  instead  be  specified  by  X3=-4.  ,  which  allows  for  molecu¬ 
lar  contributions. 

3.8.  ERROR  RETURNS 

For  sufficiently  mild  error  conditions,  a  normal  return  is  made  at 
the  completion  of  the  calculation  with  a  nonzero  value  of  the  parameter  X3. 
For  example,  in  the  calculation  of  sound  velocity  the  quantity 


Cy  '  90't  1  9t' 


e 


may  turn  out  to  be  negative  (this  only  occurs  when  ES1LMS  is  used  at  very 
high  densities).  If  so,  the  sound  speed  is  set  to  zero  and  the  above  quantity 
is  returned  in  X3.  More  serious  errors  cause  an  immediate  return  with  the 
catastrophic  error  flag  EION(14)  set.  The  following  list  of  EION(14)  settings 
may  be  used  for  diagnostic  purposes: 
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97.0097 

97.0150 


97.0505 


97.0502 


97.0012 

97.0C03 

97.0607 

97.0007 

97.0297 


Invalid  Ml  (material  identifier) 

Xlo  #<  0*  or  X2=  r  <  10~^ 

(Multi-element  version):  internal  data  statement  altered 
incorrectly 

(Multi -element  version):  /EOSlN/data  input  (for  Ml=116, 
117,  or  118) incorrect 

(Multi  version)  1  , 

»  Needed  element  omitted  from  M.A  II 

(Single  version)  J 

(Multi  version)  ,  ,  ,  . 

\  Needed  ionization  potential  was  ^ero. 

(Single  version)  J 

CMOL  iteration  did  not  converge. 


97.0197  CMOL  was  called  with  t  <  0. 1 
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APPENDIX:  LISTING  OF  EIONX  ROUTINES 


bll'  FOI?  NOLI 

suiiuuut  ini.  lIonx 


X2  r  i'l  1  *  x  A  I 


C OlJf 0  KAY  r  I'JbS  HY  LLV»  '.(  IIAl  1 1  MS 

RLCOUEU  1  Tt'UA  f  I  ON  FROLLl  LiUlll  I  (II?  /‘I A«  MAY  ?.#  f  '*«,«»  |  Y  0.  LAII|  MS 
LAST  COMPlLLlI  MY  0.  LAill-  JIIIK.  Ilil'M 

MS 

♦♦•♦♦  NATIONAL!..  -  THKL.T  STAll  '..AIIA  IuUATIOIi  III  I?  A  T  I VI  ♦♦♦♦♦MS 

♦♦♦♦♦  S0LU1 I Oil.  ♦♦♦♦♦MS 

MS 

**********  COULD  I- 01?  GlNt.LL-M  I.MUIT-MA II  DIALS  <11  ML. Y  ♦♦♦♦♦♦♦♦♦♦♦♦♦MS 

**********  COULD  Eol?  SINOLL-I  I  LMKN1-MAM  DIALS  01 II  Y  ************  ♦  MS 

**********  COULD  FOI?  SINOLL-I  LIMPflT-MAll  DIALS  ONLY  ♦♦♦♦♦♦♦♦♦♦♦♦♦Ml, 

**********  COULD  FOI?  MIIOLL-I  l.LM.NI-MA  II  UlAl.S  Dill  Y  ************  *'*\, 


NATIONAL!..  -  TIIKL.I-  STAll 
S0LU1  Kill. 


********** 

********** 

********** 

********** 

********** 


**********  KiAl?  .LL.1L- 


16LL-I  I  LMKNT-MAll  DIALS  01 II  Y  *************  MS 
IOLL-1  LIMlflT-MAI!  DIALS  ONLY  *************  MS 
IOLL-1  I.LW.NI-MAM  N1AI.S  (II II  Y  ************  *'H\, 
COULD  F  OH  SINoLL-l  IFMEUT-MAll  DIALS  OUl.Y  ************  *t>-~ 

MS 

KEVtDTS  TO  I'l  llUCT  GAS  AllSWt  DS  ♦♦♦♦♦♦♦♦♦♦MS 


♦♦♦♦♦♦♦♦♦♦  /UAH  .LL.lL-'j  XL  VERTS  TO  I'LNU.CT  GAS  AfISWl  DS  ♦♦♦♦♦♦♦♦♦♦MS 

♦  ♦♦♦♦*♦♦♦♦  ♦'DAI?  .Lt.lL-S  HI  VtHTS  TO  I't  HFI.CT  GAS  AIJSWI  DS  ♦♦♦♦♦♦♦♦♦♦MS 

♦♦♦♦♦♦♦♦♦♦  ZIIAR  .LE.It-S  UtVIDTS  TO  DLDFi  CT  OAS  AMSWI  DS  *********  *fVj 

**********  .LF.1L-S  HI VtHTS  TO  PERFECT  GAS  AtlSW!  DS  ♦♦♦♦♦♦♦♦♦♦MS 

MS 

L  *  ON  1 1 4  )  MUST  IIL  NON/t.HO  TO  CALL  A  MOLL  C  III  Al?  I  OLIATIOli  OF  SI  ATI.  M», 
L l OH (14)  IS  SLT  JUST  HEI  ONE  LflTNY  TO  THIS  SIJMDOIITINL  MS 

MS 

COMMON/LMS/  L  ION  I  c  0 )  M!» 

VAH1  AULl.S  (  IIIF’UT  AND  OUTI’IIT  )  MS 

MS 

HLAL  NDAH  MS 

LOUI VALLNCL  (E  ION  (  1 )  ♦  Til!  TA> .  IF  ION  I  ?>  ♦  !  AU)  #  (E10NI3)  ♦/MAP)  MS 

LUUIVALLNCL'  ( L  TONI  4 )  ♦/IIAHI )  ♦  <  I.  IONI S)  ♦  Fill  )  ♦  I E  I  ON  I  f. )  ♦  l  SUM )  MS 

LUUIVALLNCL  It  IONI  7)  ♦Fill  5IIR  >  ♦  It  IONIO)  ♦LULHGY)  ♦  It  lOM(n)  #01  UTIIT  )  MS 
LOUI  VALLNCL  I L  ION  1 1 0 )  ♦  DLDTAU)  ♦  I L  ION  1 1 1 )  ♦  SliOGFO )  ♦  I F  IONI  1 2 )  ♦  OI’UT  AU )  MS 
LOUI  VALLNCL  <E  I  ODI<  13)  r  Ul  UTHT )  MS 

LOUI  VALLNCL  (LION  1 1..  I  ♦ /Ml  AN)  ♦  (L  ION  I  I  7 )  ♦  NrlAR  )  MS 

'  MS 

MS 

COMMON/LMSL/MATLKL  ♦  ILLMIlT  rSNAFUr 1 1 r 12  r I 3r  14  ♦  I  Sr  If.#  I  7#  I  0#  !"♦  IIU#  Ji  ♦  MS 
/  J2 I J3r J4 ♦ JSr Jb  MS 

DATA  MATLKLr  ILL  MNT  ♦  S  NAFUr  Ur  I2r I3r  I4r  I  Sr  I 6  r  I  7  r  I  ft  r  I  r‘  r  II  ft ,  J )  ,  MS 

2  J2r  J3r  J4  r  JSr  Jb/2*l)r().r  \(>*V/  MS 

LUUIVALLNCL  (SNAFUrl’ATIII  MS 

LUUIVALLNCL  (IOrNJUMP)  '  MS 

LUUIVALLNCL  UI0rM2)  MS 

LUUIVALLNCL (L0rJ2l  MS 

LUUIVALLNCL  IllFOKLrJo)  MS 

INTEGER  IlYFASS  MS 

INTEOLH  UFOHL  M!, 

MS 

MATLHL  IS  INPUT  As  Ml  MS 

MS 

SNAFU  IS  THE  INTLHNAL  SUIIIlOUTIUL  ERROR  FLAG  CEIL  MS 

X3  IS  SLT  TO  SNAFU  ON  GUItllOUl  I  HE  i'XIT  MS 

X3  IS  SLT  TO  (I.  IF  NO  SU, (ROUTINE  L  I?  HODS  A  HI  FOUND  MS 

TO  MACK  1  IF  TS.GL.20  (Tilt  ROIITIN)  IISES  HU  MS 
2UTH  ITLIIATL  OF  /UADI  AS  ITS  FINAL  AMSWTH.)  MS 

MS 

AllOVL  AHL  UO  LOOP  RUNNING  INHICLS  OD  JUMP  NOS, MS 

11  SPtCIFILS  Till:  LOCATION  OF  TIIL  ATOMIC  MUMUER.  MS 

12  SPEC  IF  ItS  TIIL  Ul’Ptl?  IONIZATION  INFIX.  MS 

13  SPEC  IF1LS  1  IIL  LOCATION  OF  THE  UPl’t  I?  I  Oil  1 7  A  T 1 01 1  POTl.N-MS 

TIAL.  MS 

IS  COUNTS  I TLD;A TIONS  MS 

MS 

COMMON/LMSO/  TLMSI30)  MS 

IEMEOHAkY  STOHAOI  MS 


riir>i) 
01  (ID 
01  ID 
0120 
in  30 

0140 
OISO 
OIf.O 
III  70 

nion 

01  Nil 
0200 
0210 
0220 
0230 
0240 
02S0 

02(i0 

0270 
0280 
02“0 
0300 
0310 
0320 
0330 
0340 
03S0 
0360 
0370 
0380 
03‘?0 
04  00 
0410 
0420 
0430 
0440 
1)4  SO 
0460 
0470 
0480 
04"0 

osno 

OS  ID 
0S20 
0S30 
0S40 
OSSO 
0S60 
0S70 
0S80 
OSOO 
OGOO 
Obi  0 
0620 
0630 
0040 
06S0 
ObbO 
0670 
0680 
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c 

c 

III,  <0 

EUUI VALtNCL I  TLM'.f  l  )  MiAt  1  1  ).  (  11  '  *1  Mi,  ( 

MS 

II  7U(I 

EQUIVALENCE  CXUAU.  TLMSlt,)  ) 

'1* 

II  FID 

LUUI VALLLCL  ITLMStt).  M  u  4A  >.  »|  ! 

NS 

ii  7/n 

LUUIVALLNCL  ( 1  t_M!>  (  IN)  »l)/l  (All  1 

M* 

(1  F  V 

tUUlVALLNCl  ( ILMr>(  1(>)  .0/1  fill  ) 

MS 

II  F'l  D 

EQUIVALENCE  (lLM',(i'7)  *XAl  FAl) 

M* 

OFsn 

c 

tQUIVALENCL(TLMS(/ll)  *GAFMA) 
tQUI VALtNCL  ( 1LMr«(29)  *CMI ) 

Mi, 

0  7G0 

COMMON/EMSC/  Mt'il » 

MS 

11770 

U I MANSION  Z(Sl) .PAHtlNl) 

MS 

o  mi) 

c 

MS 

1) .  NO 

EQUIVALENCE (M (  1 )  *  IJOLMNT  )  #  ( Ml  7 )  *  Z  (7)  )  *  (M(  .1)  .PAR  r  ( .1 )  ) 

MS 

mi  on 

c 

MS 

OHIO 

c 

MS 

mipn 

COMMON/LMSU/Um 

MS 

III)  50 

c 

MS 

1)040 

c 

MS 

IJOSO 

c 

array  containing*  ton  each  clement*  atomic 

MS 

0111,0 

c 

NUMliLK*  ATOMIC  MAGS*  IONI7ATION  POTFNTI ALS  III 

MS 

0070 

c 

INCREASING  ORDER. 

MS 

0000 

c 

**♦  THE  ORDER  ( OF  ELEMENTS  IN  THE  TAtlLf  )  10  NOT  SIGNIFICANT .  E  01' 

MS 

o«‘)o 

c 

HIGHEST  SPEED*  TIIOGt  f.LLMCNTS  MOST  rREOUFNTLY  CALLED  SHOULD  HEMS 

0900 

c 

PLACED  FIRST. 

MS 

0910 

c 

* 

MS 

OR?0 

c 

ARRAY  EORMAT 

MS 

0030 

c 

U <  1 )  IS  THE  ATOMIC  NUMULR  01  the:  FIRST  ELEMf  NT *SAY  ZAMS 

0940 

c 

0(2)  IS  ITS  ATOMIC  HEIGHT. 

MS 

09S0 

c 

U<3)*LTt.  ARE*  IN  MONOTONE  INCREASING  ORUER.ITN  ION¬ 

MS 

0900 

c 

ISATION  POTENTIALS.  A  MAXIMUM  OF  i.A  SUCH  ARE 

MS 

0970 

c 

ALLOWED  ARRAY  ELEMENTS  FROM  (M3)  TURN  IM7A«2), 

MS 

0900 

c 

ALE  IONIZATION  POTENTIALS  RFQUIRFD  MY  Tirr.  INPUT 

MS 

0990 

c 

THETA. TAU  VALUES  MUST  ItE  LOADED.  HIGHFR  POTEN¬ 

MS 

1000 

c 

TIALS  MAY  HE  INPUT  AS  ZERO  OR  MAY  HE"  SKIPPED  IlY 

MS 

1010 

c 

THE  INPUT  DECK  WITH  A  HSS  CARD. 

MS 

1020 

c 

U(ZrO)  IS  THE  ATOMIC  NUMIJER  OF  THE  SFCOND  ELT MENT  * 

MS 

1030 

c 

SAY  7(1. 

MS 

1040 

c 

U(ZA*4)  IS  THE  ATOMIC  WEIGHT  OF  THE  SECOND  ELEMENT. 

MS 

10S0 

c 

U(ZA+N)  HFGINS  ITS  IONIZATION  POT[  NT  1 AL  TAI1LF. 

MS 

IOGO 

c 

MS 

1070 

c 

MS 

1000 

COMMON/LMSG/CARIJNZ  ( 10 ) 

MS 

1090 

COMMON/LOS I N/t I ON I N ( i 0 ) 

MS 

1100 

DIMENSION  EPSI(l) 

MS 

1110 

EQUIVALENCE (EPSI ( 1 ) . EIONlNl JO)  ) 

MS 

1120 

DATA  EPSI/. 001/ 

MS 

14  30 

DIMENSION  ZUKMIN(I) 

MS 

1140 

EQUIVALENCE (ZURM1N ( 1 ) . LIONIN ( 29)  ) 

MS 

11S0 

DATA  ZURMIN/. 00001/ 

MS 

1160 

DIMENSION  FtSTEH(l) 

MS 

1170 

EQUIVALENCE  (FESTER*  EIONIN(Zfl) ) 

MS 

1100 

DATA  FESTER/0./ 

MS 

1190 

DIMENSION  ZLN(IOO) 

MS 

1200 

c 

MS 

1210 

c 

EIONl 14)  IS  SET  IF  EIONX  WAS  CALLED  WITH  AN  INVALID  MATERIAL  NO. 

MS 

1220 

c 

OR  IF  A  NEEDED  IONIZATION  POTENTIAL  WAS  FOUND  TO  HE  7ER0 

MS 

1230 

c 

OR  IF  A  NEEDED  ELEMENT  IS  MISSING  FROM  THF  MARI  OECK 

MS 

1240 

c 

OR  IF  THETA  (EV)  WAS  LESS  THAN  7LR0  OR  IF  TAtMCC/G)  WAS  LF'.S  THAN 

MS 

I2S0 

c 

c 

l.E-30 

MS 

1270 

tNEROYs  0. 

MS 

1200 

NUARs  1. 

MS 

1290 

c 

MS 

1300 

c 

MS 

1310 

PATH:  X3 

MS 

1320 

THETAs  XI 

MS 

1330 

TADS  X2 

MS 

1340 

123 


AFWL-TR-66-  108,  Vol  II 


IK  (  TtfLT  A  •  LT . U . . ()l< .  TAU.LT  •  1 . |  ~  111 )  i,o  |t)  jnii 
IF  (PATH.LO.  (-J.  )  )  t»0  TO  l.linu 

IF  (Ml. (»L.  101  ,ANU.M1.I  |  ,Jl|tl. OH. M|  ,i,|  ,4(l|  .(IP, MJ  ,|  <),(l)  i,<)  (  n  •  ./ 
It  (Ml  »L0.  M.2  )  \jO  To  “l 
IK (MATH. ID. -1  .  )  oO  10  ‘.HJJ 
UO  MU.)  1=  1 .  !>1 
2(t>  =  It. 

IK  ( 1 .01 . 1UI  00  To  SUJ 
CAI<HN2(1>  =  o. 
com  inui. 

C0IJT1 NUL 

Mil:  Ml 

lLLMfjl:  Ml 

It  (lLtMNT.Ot.Jlll)  00  10  'Mil 
IK ( I LtMNT  .tO.  0)  00  TO  0/ 

ISoToP:  1 

CONTINUL 


11=  1 

NJUMP:  1 

01=  U(ll) 

1K(  Jl-ILLMNT  )  Jibe*  .1 

KOK  SIlOK TLST  SLAKCHt  PUT  IN  UHULN  OK  MOST-UM  01  n  f 
AT  LXlt.  11=  AHHAT  LOCATION  OF  NLblHEU  7=AT0MIC  UO. 

Ml  VT  AlJU  a  W  (  1  *  ah  t  i  r  _ _ _  _  _ _  _  ^  V  * 


comiHut 

n=  iuji+2 

NJUMP:  NJUMP* 1 

IK  (NJUMP  .LT.  .201  I  00  TO  2 
LION ( 14 ) =  97.00UJ 

KLTUKH 

tlON(m)  lb  btT  IK  A  NLLULU  tLLMf  NT  HAb  Mil  N  LIFT  OUT  01  NIL 
MAH  1  UtCK 


CONTINUL 

lbOTOPS  2 

ILKMNT=  ILLMUT-lUO 

00  TO  40 2 

CONTINUL 

1 bO TOP=  1 

00  TO  J 

LION ( 14 ) =  97.0097 
KLTUKN 

LION ( 14)  IS  btT  IK  tlONX  WAS  CALLtl)  WITH  AN  INVALID  MATERIAL  NO. 
CONTINUt 

IK (ISOTOP. LO. 2)  00  TO  404 


PHI :  9. 

M(I)=  1 

2(2):  U( 

PANT ( J) :  I. 

M  ( 4 )  :  I 

/MtAN=  U( 


9,b4H679Ell  /  U(H  +  1) 
1 

U(I1) 


M(4)=  U 

/MtAN=  U( 11 ) 

TLMS ( J) =  U(I1*1) 

CONTINU^10^  A  MLAN  ATOMIC  UUMIIT H  CAlt.l.D  7M|  AN 

IF(PATH  ,tQ.  (-1.))  00  TO  1 

IFIPATH  .tO.  (-2.))  00  TO  7b 


Mfi 

l.V*n 

Mb 

1411(1 

M2. 

1 4  1  H 

Mb 

1420 

Ml. 

14  JO 

Mb 

144  0 

Mb 

14  SO 

Mb 

1400 

Mb 

14  70 

Mb 

14110 

Mb 

1 4  *  *  0 

MS 

tbflf) 

Mb 

Ibl  o 

Mb 

IS2U 

Mb 

lb  JO 

Mb 

IS40 

Mb 

lbSO 

Mb 

1  bOO 

rffiMS 

11.70 

j )  Mb 

1  bllO 

Mb 

H>90 

Mb 

loon 

Mb 

loin 

Mb 

If>20 

Mb 

16.10 

Mb 

164(1 

Mb 

IbSO 

Mb 

it. tin 

Mb 

It. 70 

Mb 

1600 

Mb 

1600 

Mb 

1700 

Mb 

1710 

Mb 

1720 

Mb 

17jn 

Mb 

1740 

MS 

17S0 

Mb 

1760 

Mb 

1770 

Mb 

17(10 

Mb 

1790 

Mb 

11100 

Mb 

1010 

Mb 

1020 

Mb 

10)0 

Mb 

1040 

Mb 

lflbO 

Mb 

1060 

Mb 

1070 

Mb 

1080 

Mb 

1090 

Mb 

1900 

Mb 

1910 

Mb 

1920 

Mb 

I9J0 

Mb 

1940 

Mb 

191*0 
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i.  ms 

II  (L  10NC14 )  .1  0. )  t.o  in  Vi  MS 

L I  UNI  14 )  is  In  HI  Ml  III  I  Ol'l  lllll'V  10  I  ItHlHI  MS 

LION  ( 14 )  MUjl  III  SI.  1  llOli/'lim  10  C  All  III!  MOL  I  (Cl  AH  I  Ml  ol  SlAfl  MS 
LAimON  HUNS  U'  INS  LION*  Allll  (Mol  MUSI  SI  1  IUKM.HI  7)  S.'OlSo»  l  )  IMS 
II-  (ILLMNI  .III.  0  S  (All  Cltol  (  I  All#  Mil  I  A#l  I  STI  I  )  MS 

EtbTLK  IS  I  lull )  HI  i’ll )  MS 

lionin<20)  must  ut  su  .tr.  ii.  nr  irii'cii  m  m  t  ms 

TKANSC  A  f  10N-0NLT  CMOI  MS 

L10N1N(2U)  MUST  lit  SL I  .<<1.  II.  10  011  MnAH  .lo.  o.  Wlllli  MS 

I  IIILO.  KLLVIU)  .11.  ISni).  MS 

II-  (CAKBN2IH)  .III.  I'.  )  OU  10  Jli  MS 

LION  1 14)=  CAHItN/CO)  MS 

KLTUHN  MS 

1(i  C0NT1NUL  MS 

599  CONTlNUt.  MS 

lFIPATH.LO.  (-4. ) )  c.O  lc  Mil'll  MS 

rLM5(S)=  22,9926  *  ALOI  (  lAU/rni  )  l  l.S*  AlOOlTIIITAl  MS 

C  MS 

1S=  1  MS 

IK  (HFOHL.OT.O)  .  AND.  (Ill  OKI  .LI  .ltr  Mill  )  I  oO  To  10(0  MS 

lMItlOKL.GT.lLLMNT)  (#0  TO  lull)  MS 

C  MS 

UO  1000  K  =  1 » 1 0 0  MS 

AK=K  MS 

AK=AK-.S  MS 

2LN(K ) =  ALOO(AK)  MS 

1000  L0NT1NUL  •  MS 

C  MS 

1010  C0NT1NUL  MS 

J4=  1LLMNT  MS 

J3=  1LLMNT/2  MS 

J3=  MAXOlJJrl)  MS 

IFIHFOKL.EO.O)  J3=  1  MS 

Jb=  1  MS 

(#0  TO  10S0  MS# 

t  MS 

1030  CONT1NUL  MS 

TLMSllOJs  THL.TA*(TLMS(S)  -2LNNII- OKI  ) )  MS 

13=  U  +  l+IIFOKL  MS 

12=  UFOKE  MS 

IF ( TLMSl 1 0 ) • LL •  U ( I  3 ) )  00  To  1040  MS 

IF (12  .L0.1LLMNT)  W  10  7  MS 

C  MS 

J3=  HFOKF  +1  MS 

J4=  ILLMNI  MS 

Jb=  1  MS 

GO  TO  10S0  MS 

C  MS 

1040  CONTINUE  MS 

lF(!2.t0.1>  00  TO  14  MS 

J3=  IIF  JKL  -1  MS 

J4=  2* J3  -1  MS 

Jb=  2  M!> 

C  MS 

lObO  CONTINUL  MS 

C  MS 

UO  lObO  K=  J3.J4  MS 


IF ( Jb.LU.2)  00  TO  10O1 
12=  K 

TLMSl  10)=  Tl(LTA*(  TLMSl  S)  -2LNH2)) 

13=  11  +1  +12 

IFITLMS(lO)  .LE.U(  13)  )  (#0  TO  10711 


C 

1000  CONTINUE  M'» 

C  MS 

1F( Jb.E0.2)  00  TO  14  ms 

00  TO  7  M!> 


r»#,(i 
I'tr  o 
1‘i/m 

ron 

2UH0 

20  JO 
2020 
2U  30 
204  0 
;«()•»« 
20SII 
2071! 
20/10 
20‘»l) 
2100 
2110 
2120 
2130 
2140 

2 1  SO 
2100 
21711 
2100 
2 1  SO 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2200 
2290 
2300 
2310 
2320 
2330 
2340 
2  3S0 
2360 
2370 
2300 
2390 
2400 
2410 
2420 
2430 
244  ) 
2450 
24(>G 
2470 
2400 
2490 
2S00 
2510 
2520 
2530 


2500 

2620 

2630 

2640 

2650 
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lOOl  COIJTINJI. 

MS 

2l>i,l) 

12=  F-  «'♦  (Ml  OKI  -  ),:) 

MS 

2S40 

ILMS  (  1U  )  -  Illi  T  AM  1  LMi('i)  -/|N(|.')) 

MS 

2SMI 

13=  IIU^U 

MS 

2S7H 

1F(TLMSU0>  .01. 'll  1.5)  )  i,(i  10  IlKOi 

00  To  10t>0 

MS 

2000 

I07IJ  C0NT1NUL 

MS 

2070 

IF(I2.t0.U  00  TO  14 

MS 

2680 

rLMS<10)=  TMLIA*(Tl.MS(b)  ~/IN(l2-l)) 

UF0Rt=  12 

MS 

20  40 

00  To  1100 

MS 

2700 

Mb 

2710 

1000  CONTINUL 

MS 

2720 

12=  12+1 

Mb 

27  30 

13=  13  +  1 

Mb 

2  740 

BF0RE  =  12 

Mb 

27S0 

00  TO  1100 

Mb 

2700 

Mb 

2770 

/  CONT 1NUL 

Mb 

27X10 

IF  (  0(13)  .ML.  0.  )  00  TO  001 

Mb 

2  710 

t ION ( 14 ) =  97.000/ 

Mb 

2000 

RETURN 

Mb 

2010 

t 1 ON ( 1 4 )  lb  SLT  IF  A  NDUtt)  ION1/AUOIJ  POTHJTIAL  WAS  /I  110 

MS 

2020 

MS 

2030 

bOl  CONTINUt. 

Mb 

2040 

12=  1LLMNT 

Mb 

20b0 

UK0Rt=  12 

Mb 

2000 

ZBAH1=  U<11> 

Mb 

2070 

L0=  2 

Mb 

2000 

00  TO  9 

Mb 

2090 

Mb 

2900 

Mb 

2910 

14  rONTINUL 

Mb 

2920 

L0=  1 

Mb 

2930 

UFOKL=  1 

Mb 

2940 

Mb 

29S0 

9  CONTINUt 

Mb 

2960 

TLMS (27 )  =  EXP(  TLMS<b>-  U(I3)/THLTA  ) 

Mb 

2970 

00  TO  (  93*  94)  *  LO 

Mb 

2900 

Mb 

2990 

93  C0NT1NUL 

Mb 

3000 

IF(ZUHMIN(1)  ,LT.  1.018)  /|jRMlN(l)  =  l.L-18 

Mb 

3010 

IF  (  TLMS  (  27)  .Lt .  ( /DRMIII  ( 1 )  1*2 )  )  00  TO  7b 

Mb 

3020 

/URM1N(1)  IS  THE  MINIMUM  ALLOW) 0  /BAR 

Mb 

30  30 

Mb 

3040 

ALPHAS  TLMS (27) 

M5 

3US0 

9S  CONTINUt 

Mb 

3060 

XllARr.  ,b  +  ( - ALPHA +SORT  ( ALPHA*  ALF'HA  +  4  ■  *  TLMS  (?7)  ) ) 

Mb 

3070 

/BAR1=  XliAK 

Mb 

3000 

IF  (L0.L0.2)  /BARI  =  /IIAKl  i  U(I1)  -  1. 

Mb 

3090 

IF  (71IARI  .GT.  ZMLAN)  00  TO  911 

Mb 

3100 

00  TO  13 

Mb 

3110 

Mb 

3120 

94  CONTINUt 

Mb 

3130 

IF ( TLMS (27)  .OT.l.tO)  00  TO  13 

Mb 

3140 

ALPHAS  TLMS (27) +U( I 1 )  -  I. 

Mb 

31b0 

00  TO  9b 

Mb 

3160 

Mb 

3170 

7b  CONTINUE 

Mb 

3180 

PERFECT  GAS  PATH 

Mb 

3190 

SNAFU=  0, 

Mb 

3200 

99  CONTINUE 

Mb 

3210 

SIGMAS  0. 

Mb 

3220 

ZUARls  0. 

Mb 

3230 

/BARS  0. 

Mb 

3240 

GAMMAS  0. 

MS 

3260 
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Ct(I  -  (i. 

Al  = 

LU= 

bU  TO  73 


I'tll/NUAR 


90  CUNT  I NUL 

SNAFUs  /HAUl 

ou  to  yy 

1100  CUNT1NUL 

TLMS<4)=  U 
TLMS<13)=  U(1J)-U<  (3-J  ) 

TLMS(11)=  TLMS (4)  -1.5 
TLMS<12)=  THtTA/TLMSI ) 3) 

TLM5  (17)  =  TLMSIll)  +  (  TMt  tA*  It  M',(!,)-U(  |  3-m/tl  M',(  1  31 
TLMS<  19)  =  TLMSll/)  -ILMS(  IP )  */l  fj(  j  ?-i ) 

TLMS (20)=  J,*TLMS<  11)  -TLM5d9)  *  2  •  *  TL  Ms  ( 1 2  ) 

TLMS <  21 )  -  TLMSIll)  -TLMS(19) 


bACKl= 

LtACK2= 


XALFAlS 


ZUAR1= 


0. 

0. 


TLMS  ( 21 )  )  I 
TLMSIll)  +  XALIA1 


11 JO  CONTI NUL 

lFIIb.bT.19)  00  TO  1200 
MACK2=  HACK  1 

UACK1=  ZUAH1 


TLMS<23)=  XALFA1/ <  2. ♦TLMSll 1 )  *  XALF  A 1 ) 
TLM5<24)=  TLMS(2J)dLMS(23) 

TLMS<22)=  . 0666606 7. TLMS (12 )♦ TLMS (2  5)  ♦ TLMS (24) 
TLMS  (  2b)  =  TLMS<22)*.0*TLMi,(24) 

TLMS  ( 20 )  =  .  71428571 ♦TLMS  ( 24 )  ♦  TLMS  ( 25 ) 

lb=  I5d 

TLMS (18)=  TLMS (22)  + TLMS (2b)  ♦  TLMS (26) 


XALFAlr 

ZdARls 


TLMS  ( 11 )  +XALI-A1 


IF  ( AUS  ( 1  •  -HACK  1/2HAH 1 )  -U’SKIII  1 300 . 1 JUO . l )  JO 


1200  C0NT1NUL 

SNAFU=  UACK1 

L0=  3 

00  TO  600 


1300  CQNTlNUfc 
L0= 

13  C0NT1NUL 
SNAFUs 

600  CONTI NUL 
2UAR= 

XI  = 


3 

0. 

ZUAKi 

(l./NWARfZHAt<  )*|>HI 


00  TO  ( 71.71.72) #L0 
71  CONTINUE. 

OAMMAs  XHAH»ZHAR  / ( 2. ♦XHAR4 ALPHA ) 
IFIZBAH.LQ.Udl))  OAMMAs  0. 
IFI7UAR.LQ.Udl) )  XUAHs  1. 


*  M‘> 

32l.ll 

MS 

32  ?0 

M' 

320fl 

MS 

32  >0 

MS 

3  500 

MS 

33j  ft 

MS 

1320 

M!. 

3330 

MS 

334  0 

MS 

33SO 

MS 

3360 

MS 

3370 

MS 

3380 

MS 

3300 

1  MS 

34  00 

MS 

34 1  ft 

MS 

3420 

MS 

34  30 

MS 

3«  40 

MS 

34  SO 

MS 

349(1 

MS 

3SO0 

MS 

3S)  0 

MS 

3S30 

MS 

3S40 

■TIMM  in*  MS 

3SS0 

MS 

3560 

MS 

3S70 

NS 

3580 

MS 

3590 

MS 

3600 

MS 

3610 

MS 

3620 

MS 

3630 

MS 

36S0 

MS 

3660 

MS 

3670 

MS 

3680 

MS 

3690 

MS 

3700 

MS 

3710 

MS 

3720 

MS 

3730 

MS 

3740 

MS 

37S0 

.S+TLMSI11) ) )  MS 

3760 

MS 

3770 

Mb 

3780 

MS 

3790 

MS 

3800 

MS 

36J.0 

MS 

381  S 

MS 

3820 

MS 

3630 

MS 

3840 

MS 

384S 

MS 

3050 

MS 

3  8b  0 

MS 

3870 

MS 

3680 

MS 

3890 

MS 

3900 

MS 

3910 

MS 

3920 

MS 

3930 

MS 

3940 

MS 

3950 

MS 

3960 
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5IGMA= 

XHAH  ♦  LM13)*I‘H1 

MS 

3‘>70 

CHI - 

U(1J)  ♦  1.5  *  TUI  TA 

Mi, 

3960 

CO  TO  7 3 

Mi, 

3990 

c 

Mi, 

4000 

72  CONTINUE. 

TLMS < 30)= 

TLMS(lU)  -TLMM13M  (TEMSC  1MM2. *TLMM  12MTI  M',(;  3I  ) 

GAMMAS 

THETA  ♦  ZUAH  /  (Till  T A  #  /HAH  *  TIMS (1. 11  ) 

Mi, 

4010 

CHIs 

TEMSI30)  4  1.5  *  THETA 

MS 

4020 

SIGMAS 

( <ZUAR  -TLMS (4)4l,5)«*Z) ♦  TLMS ( 1  3  J  /? .  ♦)')(  I 

Mj 

4030 

2 

+  U( 1 3-1  )  *  (  X I- TLMS ( 4 1 « PHI  1 

MS 

4040 

c 

MS 

40  SO 

c 

MS 

4000 

73  CONTINUE 

MS 

4070 

£<5)  = 

ZttAR 

MS 

4000 

c 

MS 

4090 

UZUTAUs 

GAMMA  /  TAU 

MS 

4100 

UZOTKTs 

GAMMA*CHI  /THETA/THI  TA 

MS 

4110 

PKESHRs 

XI  ♦  THETA  /TAU 

MS 

4 1?0 

updtht= 

PRESHR/  THETA  4  PHI  ♦TUETA/TAU  *  0/DTHT 

MS 

4130 

OPOTAUs 

(  PHI  4THETA  4UZUTAU  -  I'HLSMR 1  /TAU 

MS 

4140 

ueotaus 

PHI  *CHI  ♦  UZOIAU 

MS 

4150 

OEDTHTs 

XI  *  1.5  4  PHI  *  CHI  ♦DZDTHT 

MS 

4160 

IF  (EI0NI14)  ,E0.  0.  J  GO  TO  SOI 

MS 

4170 

c 

EI0NI14) 

MUST  HE  SET  NONZERO  TO  CALL  THE  MOLECULAR  EON  OF  STATI 

MS 

4160 

c 

LION ( 1 4 ) 

IS  TO  t)E  SET  HI  FORE  ENTRY  TO  EIONFN  ' 

MS 

4190 

IF  (1LLMNT.E0.6)  GO  TO  500 

MS 

4200 

501  CONTINUE 

MS 

4210 

SNOSPU= 

TAU  *  SORT  (-OPUTaU  4  OPHTHT  ♦DF’OTHT  *  THETA  /()).  HTHT 1 

MS 

4220 

c 

MS 

4230 

ENERGYs 

ENERGT4XI»THETA*1.54SIGMA 

MS 

4240 

GO  TO  ( 100 #  77#  77# 100 ) »  LO 

MS 

4250 

c 

MS 

*260 

77  TLMS<14)= 

0. 

MS 

i*270 

I  fas 

12  -  1 

MS 

4260 

IF  (Ifa 

.EQ.O)  GO  TO  51 

UO  50  14s 

1#  IG 

MS 

4300 

JlS  114144-1 

MS 

4310 

TlMS( 14) s 

TLMSI14)  4UIJ1) 

MS 

4320 

50  continue 

MS 

4330 

51  CONTINUE 

c 

MS 

4340 

c 

M5 

4350 

ENERGYs 

ENERGY  4  TLMS ( 14  J  *PHI 

MS 

4360 

c 

MS 

4370 

c 

M5 

4360 

c 

M5 

4390 

100  CONTINUE 

MS 

4400 

X3= 

SNAFU 

MS 

4410 

c 

M5 

4420 

1  CONTINUE 

MS 

4430 

c 

MS 

4440 

EION ( 14 ) s 

0. 

MS 

4450 

RETURN 

MS 

4460 

c 

MS 

4470 

c 

MS 

44(10 

c 

MS 

4490 

150  CONTINUE 

MS 

4500 

EI0N(14)s 

97.0150 

MS 

4510 

RETURN 

MS 

4520 

c 

SET  E I ON (141  IF  THETA. LT. ZERO  OH  TAIJ.LT.  l.E-30 

c 

M5 

4540 

500  CONTINUE 

MS 

4550 

ENERGTs 

ENERGY+CARUN2 < 1 ) 

MS 

4560 

UEDTAUs 

UEDTAU+CARUNZ (31 

M5 

4570 

UEUTHTs 

OEOTHT  4CARUN2 ( 4 ) 

MS 

4560 

UPOTAUs 

0P0TAU4CARBNZ(5) 

MS 

4590 

UPUTht- 

UPOTHT+CARUNZIfa) 

MS 

4600 

GO  tci  501 

MS 

4610 
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c 

MS 

<*!»;•« 

c 

Ml*t4**4  U  1  M  1  U  II  1  I'AIH-  4  .  1  >  i  IHII  l  •  l  !  i  1  . . 

MS 

40  Ml 

OUllll 

UINIINU! 

M‘ 

4. .'Ml 

C 

MS 

(|OS(l 

111=  MC4) 

M‘> 

46611 

iF(Z(b).or.tudm-.b))  hi  in  imho 

MS 

467H 

C 

MS 

40/1(1 

gL  =  /(!>) 

MS 

40r<n 

LAG=  6L 

MS 

4  TOO 

GAL=  OL  -FLOAT (LAO) 

MS 

471 

4  720 

If  IGAL.OT .  ,5)  II,:-  LAC. 

MS 

IF (GAL.LE . . b)  1(2=  LAO  t  t 

MS 

4  7.1(1 

00  TO  b020 

MS 

4  740 

c 

MS 

4  7S0 

oo  1  u 

CONTINUL 

MS 

4  70(1 

112= 

MS 

4774 

c 

MS 

47)10 

oozo 

CONTINUL 

MS 

4  no 

111  =  III  *  Hr'  +  l 

MS 

411(10 

c 

MS 

41)1(1 

XI=  f>HI*(l./lU«AR  4/UAK) 

MS 

402(1 

IKII2.L0.1)  00  TO  60 111 

MS 

4  0 .10 

IF  (  II2.LU.  ILEMNT )  00  TO  0U4i) 

MS 

4  040 

c 

MS 

40S0 

TLMS(4)‘-  1 12 

MS 

40(1(1 

TLMS(11)=  Utlll)  -IHIIVU 

MS 

4  0  7(1 

SIGMA=  (UMAR  -IL.MSC4)  *  1  .'.)»»,•)*  II  MS  (  1 .5 ) /;•  .♦i*l  IT  t 

MS 

4000 

d  U(  II  1-1 )  ♦  (XI  -II  HMD  )  ►*,M1  ) 

MS 

4  0'*0 

00  TO  bOoO 

MS 

4900 

c 

MS 

401(1 

OOJU 

CONTINUL 

MS 

4920 

X13AR=  Zb  AM 

MS 

44  11) 

00  To  bObO 

MS 

4440 

c 

MS 

445(1 

6040 

CONTINUL 

MS 

4460 

XHAR  =  ZbAK  -U( III)  41. 

MS 

4470 

C 

MS 

4900 

bU'jO 

CONTINUL 

MS 

4940 

bIGMA=  XUAK*U(  IU)*f>flI 

Mb 

SOOO 

C 

Mb 

S010 

bUbU 

CONTINUL 

MS 

5020 

PRESHK=  XHTHETA/TAIJ 

Mb 

50.10 

IF  (  (PATH.LCI.  (-4.) )  .ANU.  ( ILfMMT.LG.o) )  U«  RGY=  I  ur  )*r,y  *<AP|i'l/(l) 

Mb 

5040 

C 

MS 

SOSO 

6070 

CONTINUL 

Mb 

5000 

ENERGY=  1 .  5*TIILT A* X I  +SIGMA  H.NEKOY 

MS 

5070 

C 

Mb 

5000 

TLMS ( 14 ) =  0. 

MS 

5100 

IF  ( 1 12. 1 0.1)  O0  TO  bUtll) 

MS 

5090 

116=  I 12  -1 

Mb 

5110 

UO  607b  114=  l*IIb 

MS 

5120 

JJ1=  III  UI4  -*1  \ 

MS 

5110 

TLMS (14)=  TLMS (14)  4UIJU1)  ^ 

MS 

5140 

bU7b 

CONTINUL  \ 

Mb 

5  ISO 

bOOO 

CONTINUL 

MS 

5160 

C 

MS 

bl  70 

tNEROT=  ENERGY  ►  TLMS  ( 14  )  *Plll 

MS 

5100 

C 

MS 

519(1 

SNAFU=  U. 

MS 

5200 

GO  To  10U 

CALL  MARI 

RETURN 

M' 

5210 

END 

MS 

5220 
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WILT 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


►OH  MULTI 
SUBROUTINE  lionx 


<*1»  X2,  ,V|1,  m  ) 


/-  nch  COULD  UY  Lt.W  SCHALIT 
COOED  DUHINO  JUNE. I9ub 


LAST  COMI’ILLU  UY  G.  LArjl  JUNE  o.l'H.o 


**•*•  HAT IONALE  -  , iTA I,  r.AHA  tMIAtlmi  ItlHATIW 


**  *** 
***** 
tail 


********  ZUAR 
********  ZUAR 
********  ZUAR 
********  ZBAK 
********  ZBAK 


•  LE, 

•  LL  < 

•  LE. 
.Lt. 
.LE. 


Z'JRMIN  REVERTS  TO  I’LNf  ECT  CAD  **♦♦♦♦♦* 

2ilHMIN  REVERTS  To  Hl.HFFCT  GAD  ******** 

2UHMIN  RLVERTS  TO  PLRE.CT  CAT, 

5  f<LVfHT'J  T0  't^tCT  GAS  ******** 

2IIHMIN  ML VERTS  TO  PEM-EtT  f,AS  ♦♦♦♦♦♦*, 


2BHMIN  ORDINARILY  SET  .to. 
2BRMIN  ORDINARILY  GET  .LO. 


(•001)  OUT  MAY  IIL  CHANGED  DY  INl’ttt 
(.001)  RUT  MAY  HE  CUANGF  D  nY  INCUT 


COMMON/LMS/  LI  ON  (id) 


VARIABLES  (INPUT  AND  OUTPUT ) 


tSXt«E  Sj;  sj; : 

LOUIVALLNCE(EION(b) .PHI )  ( T  T  ON  <  6 ) » t  SMM ) 

EQUIVALENCE  (LIONdO)  .DEUTAU) !  (tl ONUI  )!srJ,?S)  '  ( r  1 I  ” 'nFUT"T> 
EQUIVALENCE  <EION<  13)  . OPUTMT )  b  1 0N 1 11  ’  •  > » «f  I«N(  1?)  .DPUTAU) 

EQUIVALENCE (EION(lb) » ZMEAN ) 

EQUI VALENCE (E ION (17) . NUAR) 

HeXSE^  ,EI0N<i«> -ftWll  .  (EI0N(19> .ZSUMZ)  .  (LI0N120)  .ZSUM3) 


COMMON/LMGU/ 


U(l) 


IN 


. . 


Till  FIRST  ELFMlIiT.SAY 


array  format 

U(l)  IS  TML  ATOMIC  NUMUER  OF 
U(2)  IS  ITS  ATOMIC  WEIGHT. 

U(3,'^«i.AKt-'IN  M0N0T°w  increasing  ordfr.its  ion- 

iiZ.A,T.i0N  PyTENTIALS,  A  MAXIMUM  OF  Zft  GDCM  ARL 
ALLOWED  ARRAY  ELEMENTS  FROM  11(3)  THRU  Ui/A+2) 

THt  T^0riMAv!I0N  P0Tt  NTlAES  KM5UIHF.0  IIY  THE  INPUT 
THETA. TAU  VALUES  MUST  l)E  LOADED.  HIGHER  POTEN- 
UE  INRUT  AS  ZERO. 

ATOMIC  NUMBER  OF  THE  SFCOHt)  ELEMENT. 


/A 


TIALS  MAY 
UI2A+J)  IS  THE 
SAY  2b. 

u(2a+4)  is  the 

U(2A+b)  BEGINS 


COMMON/LMSC/  M(bl) 
DIMENSION  Z(bl) .PARTI bl) 


ATOMIC  WEIGHT  OF  THE  SECOND  ELI  MI  NT 
ITS  IONIZATION  POTT  NT  I AL  TADLI  . 


noon 
n  o ; .  t  > 
orifiO 
00  TO 
ooon 
ooon 

oun 
0120 
01, TO 
0100 
f-’isn 
GlOO 


0220 
0230 
0240 
02b0 
0260 
0270 
02B0 
0290 
0300 
0310 
0320 
0330 
03b0 
0360 
0370 
J  0300 
0390 
0400 
0410 
0420 
0430 
0440 
04  SO 
0460 
0470 
0400 
0490 
ObOO 
0510 
0b20 
0530 
0b40 
0b50 
ObOO 
0b70 

nbon 

Ob90 

OblO 

0620 

0630 

0640 

0650 

0660 

0670 
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c 

LUU 1  VALLNCL  (M (  1  )>  IJOLMI J  T  )  .  (  :  I  )  ,  /  |  |  )  ,  (  (  ^ )  ,  |  a  I  I  (  ^ )  ) 

C 

LOMMON/LMSD/  TLMS(AO) 

C  I L Ml  I'PApY  IiRAi.I 

C 

LUUI VALLNCL (TLMS(1  )  .HACK  III  Hi  I1  .l,!l  »l'Al  »  )  .  )  1  (  r" ,  (  7 )  , ,  |;AI  (  i) 

LUUI  VALLNCL  (XII  Alt  .  Tims  t  »>  )  ) 

LUUI  VALENCE  (  TLMs  (  > )  .  a  1  ) 

LUUI  VALLNCL  (  TLMS  (  IS)  •  D2|  TAP  ) 

LuUIVALLNCF  (TL'lSdi.)  .Ii/l  Till  ) 

C 

COMMON/LMSi  /MA 1  (.1(1.  r  1  LI  Ml  iT  .  SHAM  I .  J  )  >  I •  l  '  <  )  ‘l  #  I .  1 1 . .  )  )  A  >  I  ' 1  •  1  Ml  t  l  I  # 

2  J2 1  JA*  J4»  Jb  •  Jo 
LUU1VALLNCL(L0.J2> 

DAT  A  MATLHL  >  ILF  MIJ I  »  SNAFU.  1  I  .  . »  I  A »  1 4 »  )  S.  I <>»  1  / .  )  M ,  I  <> .  |  )  <i , ,  1 1  ,  ,l,> , ,  I  \ , 

2  J4,  Jb»Jli/2*U>0.  .  ),(.*(]/ 

LUUI  VALLNCE.  (SIIAFII, PATIO 
LUUI VALLNCL  (10.NJUMP) 

LUUI  VALLNCL  (  IO.UYPASS ) 

INTEGtR  HYPASS 
LUUI  VALLNCL  (III). M2) 


MATLHL  IS  INPUT  As  Ml 

SNAFU  IS  THL  INTLHIJAL  SUUHOUT1NI  LURCH  I  LAN  Cl  I  L 
IS  COUNTS  lTLHATlOfiS 

XA  IS  SLT  TO  SNAFU  ON  SUUHOUTlNi.  1*11 

XA  IS  S(  T  TO  0.  IF  NO  SUUKOUT  INI  I. HOOKS  Aid  IiiUiiU 
10  HACK!  IF  )S.  l,l  ..->))  (PONT  INI.  MSI  S  Till 
2UTH  ITIKATL  OF  2IIAP 1  AS  IIS  I  INAL  ANSWER.  l(OW(  VI  l< «  Til  I’ . 
CASt.  MAY  KLUUIHL  FURTHER  INVESTIGATION.  AS  T(lf  MIRATION 
PROCEDURE  MAY  IIAVL  HI  LN  OSC  1  LLATOKY  .  ) 


C 


C 

C 

C 

C 

C 


C 


AHOVL  AHL  MO  LOOP  RUNNING  INDICIS  OP  i II IMP  NoS. 

11  SPLCIFILS  THL  LOCATION  01  T|«  AIOM1C  MUMHIH. 

12  SPLCIFILS  Tilt.  limi<  lOtll/ATJOH  INIHX. 

IA  SPECIFICS  THL  LOCATION  OF  Til!  UPI’I  It  IONl/AT>o|l  J’nTl  N- 

tial. 

lb  COUNTS  ITERATIONS 
COMMON/LMStSN/TLMSH  ( 1!>) 

LUUI  VALLNCE  (DNPTAU.  TLMSU  (  12)  )  .  (UNDTUI  .TLMSIM  I  A)  I 
LUUI  VALLNCL  (  T  LMSli  (  14)  .OISURo  ) 

COMMON/LOSIN/LIONi, )( AO ) 

DIMENSION  EPS I ( 1 ) 

LUUI VALLNCE (LPSI ( l) .1  lONlN(AO)  ) 

DATA  EPSI/.00I/ 

DIMENSION  /UHMINU) 

LUUI  VALLNCL  ( 2HRMIN ( 1 )  ,LI0NIN(2»)  ) 

DATA  2DPMIN/.001/ 

UIMENS10N  FLSTLK(l) 
bOUIVALLNCF  (FLSTLK,  I  lOlJltM  20)  ) 

DATA  FLSTER/0 . / 

COMMON/LMSG/CAIUIN2 ( iU ! 

DIMENSION  MATItLLUl.IS) 

HEAL  MATHLL 


AHHAY  FOHMAT  IS  NO,  OF  LELMLNTS.  SUCCESSIVE  I'AIKS  0) 
(ATOMIC  NOS* .  ATOM  NUMHLN  FNACTION)  HI  MONOTONl 
INCREASING  ORDER.  (TOR  LNTHY  CONV)  Nil. IJF  |  (t||l  Y  I 


DIMFNSION 

2 

A 


DYI  (11).  I  Y2  (11).  IIYA  (III.  ()Y4  Ml).  PYS  (II). 

UYb  (11).  1.Y7  (II).  HVH  (Jl).  HY"  (IT).  PYIO(I)). 

DY 1 1  ( 1 1  )  .  UY 12 ( 1 1 )  •  HY  l  A I II  ) .  UYUlOl).  HY)S(il) 


LUUI  VALLNCL  (MAl)OL(l.l).  DY  l  (  1  )  ) 


IK'illl 
IP. 'PI 

Ii7tl(i 

eiv.-n 
))/  in 
1)741' 
)1VS)I 
))7(il) 
07  Hi 
0  Full 
I)  /')(> 
CMnn 


(10)0 
OIL'D 
00  AO 
OOliO 
004  0 

oio.o 

0070 
01(0(1 
OH'KI 
0000 
0"10 
0020 
D'.'AO 
0040 
()»»•, 0 
(P'oO 
00  70 
(1000 
))9O0 
1000 
1010 
1020 
10  AO 
104  0 
10SO 
101.0 
1070 
1000 


1100 
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EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
C.QUI  VALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 


(MAIHELt  1.2)  .  (it  M  I  I  I 
<MA1HlL<1*3> .  IiYMII) 
(MATHEL  ( 1  *4  )  »  |>Y4(1I) 
(MATHEL!  1*5)  .  UYM  II  ) 

( MATKLL  ( 1  >  b )  *  l)Yb(  1 1  ) 
(MAIHELU.7)  .  UY  /  ( 1 1  ) 

( MATHEL  ( 1*1)  *  l)YB(  1 )  ) 
(MAIRlL(i.'i)*  tiV'i(ll) 
(MA  IK 'L  (  1 » 1 0 )  •  UYlUim 
<MATHLL( 1 *11)  *  UYll(ll) 
( MATKLL (1*12) *  UYI2(l)> 
(MATHLLI lilJI *  DY13(1I) 
( MATHEL (  1*14)  *  ()Y14(  1)1 
( MATHEL  ( 1*151*  UYIMOI 


AHRAY  UY  N  lb  FOH  MATtHl  =  CHHIfNI 


***************  ******  t +  hA(l  K!Al. 

CALL  SEQUENCE  PAH  AM)  tl  H  I.  (HI '.E 
MATERE 
101 
102 

103 

104 

105 
10b 
107 
100 

109 

110 
111 
112 

113 

114 

115 
lib 

117 

118 


COD)  UlMULRS* **»«*♦*♦*«*♦♦•♦**♦♦♦• 
M  MAIEUL  I)J  Sl/IU’OllI  (III  )  1  . 

SUIl'it  AflCL 
POl  Yl  TIIYL)  III 
All 

Tl  I  EDM 

NYLOU-PI )(»)(>)  If  A 
WEI  rtiFK 

heehasil 

PM) NOLI C  A 
LITHIUM  HYDRIDE 
5ALT 

MAONALIUM 

H-M-X 

REFHA5IL  It 
PHENOLIC  H 
RLFKASIL  C 

CAHHON-PHENOLICtR.SCHLAUG  A) 
CAHO  INPUT  MATERIAL  1 
CARD  INPUT  MATERIAL  2 
CARD  INPUT  MATERIAL  ^ 


lH?n 

103(1 


2030 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


CH2 

DATA  DY1/2. *  1 . * 
AIK 

DATA  UT2/3.*7.* 
TEFLON 

DATA  UV3/2..6.* 
NYLON-PHENOLIC  A 
DATA  DY4/4 •  *  1 .  * 
WET  TUFF 

DATA  DV5/5.*..* 
KEFRASIL 
DATA  UY6/4 •  *  1  •  * 
PHENOLIC  A 
DATA  DY7/3. *  1  •  * 
LITHIUM  HVDHIDE 
DATA  UYB/2.  *  1  •  * 
SALT 


•bbbbbb6b7*  b.*  ,333333333*  b*0./ 

.70455*  0.*  .21075*  10.*  .0047*  4*0./ 

.333333333*  19.*  ,6bb6b6bb7*  b*(>./ 

.5625*  6.*  .34375*  7.*  .03125*  0.*  .0625*  2*0./ 
.310*  0.*  .497*  13.*  .1)33*  14.*  .137*  19.*  .023/ 
.25*  6.*  .25*  0.*  .35*  14.*  ,15*  ?♦()./ 

.454545455*  b.*  .454646455*  0.*  .090‘,090'M*  4*0./ 
.5*  3.*  .5*  6*0./ 


DATA  0Y9/2. *11.*  .5*  17.*  .5*  b*0./ 

r.AGNALiUM 

DATA  UY10/2. *  12. *  .3*  13.*  .7*  6*0./ 
H-M-X 


DATA  UY11/4. *  1 . *  .205714205*  b.*  .142067142*  7.*  . 20571 4,‘M6*  M . . 

2  .205714205*  2*0./ 

HEFRA5IL  U 

DATA  UY  12/4 . » 1 . »  .1913b*  (>.*  .23‘»?.  O.,  .39021*  14.,  .  17'»UI*2*0. / 
PHENOLIC  b 

UATA  UY13/3.  *  1  •  •  .414*  b.*  .517*  0.*  .Mb')*  4*(l,/ 

HEFRA5IL  C 
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UATA  DY14/5. » 1  •  *  .248#  b.»  .007#  6.#  .29?#  H,»  ,.V1#  14.#  .13?/ 

C  CARBON-PHENOLIC  (R.  SCMLAUG  A) 

DATA  DY1S/3.#1.«  .179#  b.i  .779#  0,#  .042#  4*0./ 

C 

C 

C 

C 

C 

C  LI ON (14)  IS  SET  IF  EIONX  MAS  CALLED  MITH  AN  INVALID  MAT! RIAL  NO. 

C  OR  IF  READ-IN  INPUT  IS  INCORRECT 

C  OR  IF  A  MATERIAL  DATA  STATEMENT  MAS  ALTERED  INCORRECTLY 

C  OR  IF  A  NEEDED  IONIZATION  POTENTIAL  MAS  FOUND  TO  BF  ZERO 

C  OR  IF  A  NEEDED  ELEMENT  IS  MISSING  FROM  THE  MARI  DECK 

C  OR  IF  THETAIEV)  MAS  LESS  THAN  ZERO  OR  IF  TAUICC/G)  MAS  LESS  THAN 

C  l.E-30 

C 

C 

C 

C 

C 

C 

PATHS  X3 

NBARs  1. 

THETAS  XI 

TAUs  X2 

IFUHETA.LT.O.. OR. T*U.LT. l.E-30)  GO  TO  150 
IF (PATH. EO. (-3.JJ  GO  TO  6000 
IF  (Ml  .EO.  M2  )  GO  91 

DO  503  is  1#51 

Z  ( I ) s  0. 

IFCI.GT.15)  GO  TO  503 
TLMSB(I)s  0. 

IF  (I  .GT.  10  )  GO  TO  503 
CARBNZdls  9. 

503  CONTINUE 

MATERLS  Ml 

C  MATERL  NAMES  THE  MATER »AL  USED 

M2S  Ml 

C 
C 
c 

IF (MATERL  .LT.  101  )  GO  TO  1 

C  ABOVE  PATH  FOR  IONIC  SIN6LE  ELEMENT  MATERIAL 

C 

IF  (MATERL  .LT.  201)  GO  TO  2 

C  ABOVE  PATH  FOR  IONIC  MULTI-ELEMENT  MATERIAL 

C 

IF  (MATERL  .LT.  301  )  GO  TO  97 
IF  (MATERL  .LT?  401  )  GO  TO  401 

C  MATERIAL  NUMBERS  FROM  301  TO  399  ARE  TO  BE  USED  FOR  ISOTOPIC  MIXES 
C  FOR  SINGLE  ELEMENT  MATERIALS  ONLY 

C  SUCH  ISOTOPIC  MIXES  ARE  TO  BE  ENTERED  AFTER  THE  PURE  ELEMENT  ENTRY 
C  IF  SUCH  EXISTS 

( 

97  EI0N(14)s  97.0097 
RETURN 

C  E ION (14)  IS  SET  IF  EIONX  MAS  CALLED  MITH  AN  INVALID  MATERIAL  NO. 

C 

C 

1  CONTINUE 

IF  (MATERL. EO.  0)  GO  TO  97 
ISOTOPS  1 
Z(2)s  MATERL 

402  CONTINUE 

C  THIS  PATH  FOR  ANY  SINGLE  ELEMENT  MATERIAL 
ILEMNTS  Z(2) 

NOLMNTs  1 
PART(3)=  1. 


1110 

1120 

1130 

1140 


1150 

1160 

1170 

1190 

1200 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 


1340 


1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

*500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 
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GO  TO  11 

1730 

174(1 

401 

CONTINUL 

1750 

ISOTOPs 

2 

1760 

Z(2)  = 

MATEHL-iOO 

1770 

GO  TO  402 

I7BO 

1 790 

2 

CONTINUE 

L  =  MATtHL 

-  100 

ILEMNTs 

0 

1H10 

IF(L  .GT.  lb)  GO  10  bH 
SUMPRT  =  0. 

NOLMNT  =  MATHCL<1*L>  ♦  .b 
00  10  I=1»N0LMNT 
MM  =  2*1 

Z (10*1-0 »  =  MATHLL(MM»L) 

PART(10*I-7)  =  MATHEL(MM*1»L) 

SUMPRT  =  SUMPRT  ♦  PART(10*I-7) 

10  CONTINUt 

IF (AOS (SUMPRT- l • )  .LL.  (.01))  GO  TO  11 
bOb  CONTINUL 

C  AN  INTtKNAL  OAtA  STATEMENT  FOR  MATER !  At.  PPOPI  MT  IKS 
C  WAS  ALTERED  INCORRECTLY 

LIONI 14)  =  97 • ObOb 
RETURN 
C 


SO  CONTINUE  4140 

IF(L  .GT.  lB)  GO  TO  97 
IF (L  -  17)  SB1 *59.60 

C  PATH  be  FOR  A  FIRST  MATERIAL  USING  RLAO-IU  INPUT  41bO 

C  (INPUT  TO  RE  ENTERED  INTO  THE  EIONIN  ARRAY  IN  4160 

C  FLOATING  POINT  FORM.  NOLMNT  TO  ML  ENTERED  FIRST.  4170 

C  THEN  COME  PAIRS  OF  ENTRIES  FOR  EACH  ELFMLNT  OF  41A0 

C  ATOMIC  NUMLEK  ANU  NUMBER  FRACTION  IN  ORDER  OF  4190 

C  INCREASING  ATOMIC  NUMBER.  FURTHLR  MATERIALS  STACK  4200 

C  ON  TOP.)  4210 

SB1  MOPSY  =  0 

S04  CONTINUE  4230 

SUMPRT  =  0. 

NOLMNT  =  E I ON IN (MOPSY* 1 )  +.b  4240 

IF (NOLMNT  .GT.  b.OR. NOLMNT. LE.O)  GO  TO  bU2  4250 

DO  501  1=1  * NOLMNT  4260 

MOPSI=  2*I+MOPSY  4270 

2(10*I-B>=  EIONIN (MOPSI )  42B0 

PART(10*I-7)=EI0NIN(M0PSI*1)  4290 

SUMPRT  =  SUMPRT  ♦  PART (10*1-7) 

bOl  CONTINUE  4300 

IF(ABS(SUMPRT-1.)  .Lt.  (.01))  GO  TO  11 

C  4320 

502  CONTINUE  4330 

C  AN  INPUT  DATA  WAS  ENTERED  INCORRECTLY 

EION( 14)  =  97.0502  434C 

RETURN 

C  4360 

59  CONTINUE  4370 

C  PATH  59  FOH  A  SECOND  MATERIAL  USING  KCAP-IN  INPUT.  4380 

C  SEE  PATH  bB  FOH  INPUT  INSTRUCTIONS.  4390 

KHAZY  =  EIONIN ( 1 )  ♦  .b  4400 

MOPSY=  2*KHAZY+1  4410 

GO  TO  S04  4420 

C  4430 

60  CONTINUE  4440 

C  PATH  60  FOH  A  THIRD  MATERIAL  USING  HEAP-IN  INPUT.  4450 

C  SEE  PATH  bB  FOR  INPUT  INSTRUCTIONS.  4460 

KHAZY=  LION IN ( 1 )  ♦  .5  4470 

KAT=  EI0NIN(2*KRAZY»2)  ♦  .5  4400 

MOPSY=  2* (KRAZY+KAT+ 1 )  4490 

GO  TO  S04  4500 
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c 

c 

c 

c 

<104  CONTINUL 

ISOTOPs  l 
00  TO  403 
C 

11  CONTINUE 
C 

C 

C  THE  FOLLOWING  SECTION  INSERTS  INTO  1IIL  4TIUETC.*  Cl  LI  f.  Ill  THE 
C  M  ARRAY  THE  LOCATION  INDEX  FOR  THE  U  ARRAY  OF  THAT  ELI  Ml  ilT  WHOSE 

C  ATOMIC  NUMBER  WAS  IN  THE  2ND*tTC.*  CLLL  OF  THI  M  ARRAY 

C  THE  FACTOR  PHI  #  WHICH  IS  A  COMM  I  NAT  ION  OF  CONVTRMOH  FACTORS 

C  ANO  WEIGHTED  ATOMIC  MASSES*  IS  ALSO  COMPUTE  111' HI 

C  THIS  SECTION  ALSO  COMPUTLS  A  MEAN  ATOMIC  NUMHI.R  CALLI  H  /M|  AN 
C 

TLMS(3)=  0. 

ZMEAN=  0. 

DO  14  Is  1*  NOLMNT 
11=  1 
NJUMPs  1 

12  IF  (U(I1).F9. 2(10*1-8)  )  Go  TO  15 
403  CONTINUE 

11=  II  ♦  2  ♦  INT (  U(I1>  ♦  .S  1 

NJUMPs  NJUMPFl 

IF  ( N JUMP  .LT.  201  I  GO  TO  12 
EION(14)s  97.0012 

RE  TURN 

C  EI0N(14)  IS  SET  IF  A  NELDED  ELEMENT  HAS  IIELN  COT  OUT  OF  THE 
C  MARI  DECK 

13  CONTINUE 

IF  (  ISOTOP  .EQ.  2  1  GO  TO  404 
ZMEAN=  ZMtAN*PART( 10*1-7) *U( II) 

M(10*I-6)=II 

TLMS(3)=  TLMSO)  ♦  PART(10*I-7)  *  U(IOl) 

C  TLMSO)  IS  THE  MEAN  PARTICLE  WF;IGHT 

14  CONTINUE 

PHIS  9.648679Ell/TLMS(3) 

C 

C 

91  CONTINUE 
C 

IF  (PATH  .EO.(-l.>  )  GO  TO  100 
C 
C 

IF t (MATERL.EQ.6.0R.MATERL.EQ.306) .AN0.EI0N(14) .NE.0.)CALL  CMoL 
1(TAU* THETA* FESTER) 

C  FESTER  IS  EI0NIN128) 

C  EI0NIN(28)  MUST  UE  SET  .LT.  0.  DY  INPUT  TO  GET 
C  TRANSLATION-ONLY  CMOL 

C  EI0NINI20)  MUST  UE  SET  .GT.  0.  TO  GET  NllAR  .EO.  o.  WHEN 
C  T  (DEG.  KELVIN)  .LT.  1500. 

C  EI0NU4)  MUST  UE  SET  NONZERO  TO  CALL  THE  MOLECULAR  EON  OF  STATE 
C  CARBON  RUNS  USING  EIONX  AND  CMOL  MUST  SET  ECHCK ( J+I7)  =  5,905661 1 1 
IF  (CARBNZ<8)  .EG.  0.  )  GO  TO  IE, 

EI0N(14)=  CARBNZ(O) 

RETURN 

C  EI0NU4)  IS  TO  BE  SET  OEFORE  ENTRY  TO  E10NFN 

C 

C 

lb  CONTINUE 
C 

IF  (  MATERL.NE.I02)  GO  TO  700 

IF  (  THETA  .GT.  EI0N(14)  )  v*0  TO  700 

C  IF  THETA. LE.EION( 14)  (WHICH  WAS  SET  ULFORE  ENTRY  TO  I  IONFII)  HLlUWl 

C  TO  A  MOLECULAR  AIR  EUUATION  OF  STATE 


4510 

4520 

4530 

4540 

4050 

4560 

4570 

4500 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

466(1 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 


4980 

4990 

S000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 
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L10N(1*M  MUST  ItL  SLl  IION/LllO  l<»  CAM  lilt  MoLI  Mil  A('  I  H  '  (All  Slid 

b ION ( 14)  IS  10  ML  Sbl  III. I'OHt  I  HINT  lo  1  >0111  M  51.'0 

AIK  RUNS  USINO  L I  ONF  N  ANN  AIMS  MUM  SI  I  LCIICK  I J  t )  7 )  l<>  Aid 
UIS5UC1A1  ION  LNLRoY  (ABOUT  2.‘H)1) 

MAT£RL=  20t)  Slid 

00  TO  100  5140 

70U  CONTINUE  5150 

5160 
SI  70 

IF (MATLRL .NE . 101 )  00  TO  '*?.  5100 

LI0NI14)  MUST  HE  SET  NONZERO  TO  CALb  TMI.  MOD.CUl.AR  I  ON  01  STATE  5100 

LION!  14)  IS  TO  HE  SET  BlFORl  I  M1KY  TO  I  10NHJ  5200 

THE  ES1LMS  SUUR0UT1NE  IS  CALLU)  VI  IF  NEVER  THE  MOLFCUIAO  SPICILS  S210 

CHARACTERISTIC  OF  CHt  DECOMPOSITION  ARC  HI  l  IEVEC  I'M  M  I  IT  •  5220 

TLMSb ( 1 )  =  • 76 20033* ALOG(TAU)  5230 

CH2  RUNS  USIFlO  ES1LMS  AND  E10IIF3  MUST  HAVE  LCUCKIJMM  =  '».C,3C )  )  524!) 

IF  (THETA. LT.. 207107*1. /TLMSLim. AMD.  t  ION  114)  .Ml  .  IJ.ICALI  E5H.MS  5250 

5200 

92  CONTINUE  530(1 

531(1 

IF  (PATH.L0.I-2.M  00  TO  90  5320 

5330 

IF (PATH.EQ. (-4.1)  GO  TO  OOOO 

5290 

UO  93  1-1 *N0LMNT  5340 

2(10*1 ) =  0.  5350 

93  CONTINUE  '  5360 

5370 

5350 

5390 

5400 

WHEN  ABOVE  UO  LOOP  FINlSHLS.M(t)  =NOLMNT  5410 

5420 

M(2)  =  Z  OF  FIRST  LLEMLNT  5430 

Ml  121=  Z  OF  2ND  ELEMENT  5440 

Ml  22)  =  Z  OF  3RD  ELEMFNT  5450 

M(32)=  7  OF  4TH  ELEMENT  5460 

M(42)=  Z  OF  5TH  f  LF'MENT  5470 

5400 

Mi  3)  = NUMBER  FRACTION  OF  1ST  ELEMENT  5490 

M( 13)=Nl)MHLR  FRACTION  OF  2ND  ELEMENT  5500 

M(23)=NUMHER  FRACTION  OF  3RD  ELEMENT  5510 

M(33)=NUMBER  FRACTION  OF  4TH  ELEMENT  5520 

M(43)=NUMUER  FRACTION  OF  5TH  ELLMLN T  5530 

5540 

M(4)  ^LOCATION  OF  Z  OF  FIRST  ELEMENT  5550 

M(14J=L0CAT10N  OF  Z  OF  2ND  ELEMENT  5560 

MI24) ^LOCATION  OF  Z  OF  3HD  ELEMENT  5570 

M(34)=L0CAT10N  OF  Z  OF  4TH  ELEMENT  5500 

M(44) ^LOCATION  OF  Z  OF  5TH  TLF.MENT  5590 

5600 

5610 

THE  VALUE  OF  ZUAK  FOR  EACH  SPECIES  PRESENT  IS  STORED  IN  THE  5T)I»  5620 

ETC.#  ARRAY  ELEMENTS  AFTER  IT  TS  COMPUTED.  5630 

5640 

ZSUM1=  0.  5650 

ZSUM2-  1 .  5660 

ZSUM3=  0.  5670 

ZBAR-  0.  5600 

ZBARLN=  0 .  5690 

BACK1=  0.  5700 

15=  1  5710 

BYPASS=  0  5720 

sets  iteration  counter  5730 

5740 

TLMS ( 5 ) =  ALOGl TAU/PHI ) *  1 .5*AL0G( THET  A ) *22 . 9926  5750 

21  CONTINUE 

TLMS (10)=  THETA* ( TLMS ( 5) -ZBAHLN) 
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C  TLMS  III))  IS  Tilt.  SYNTMLIK  I'OTtHTIAL  U'.fO  III  I  flUAI  IONS 

22  UO  23  I=l#Nl)LMNT 
C 
C 
C 

c 

11=  MI1UM-K) 

ILEMNTs  UUI)  ♦  .‘j 
C 

C  AT  tNTHY *  1 1=  AKK M  LOCATION  OK  DI.SIIUD  Z=ATOMK  ilo. 

C  IN  THL  UI250)  ArMaY 

C  NEXT  ARRAY  ELfMENT  If.  THE  ATOMIC  HI.  I  MIT.  THIS  IS  I'OLLOWl 

C  BY  THC  SET  OK  IONIZATION  POTENTIALS  (MONOTONI  IUCREASNG) 

C 

L  607  12=1 • ILEMNT 
13=  12*11*1 

IK  I TLMS I 10 ) .  LL .  U  (  I J )  )  00  TO  611ft 
607  CONTINUL 

IK  (  U(I3)  .NL.  0.)  00  TO  <>01 
LION ( 14 ) =  97.0607 

RETURN 

C  LION ( 14 )  IS  SET  IT  A  NF.IULO  IONIZATION  I’OTINTIAL  WAS  71  MO 

601  CONTINUE 

12=  ILLMNT 

C 

IK  (  IS  .EQ.  I  )  HACK  I  =  UIII) 

LQ=  2 

60  TO  609 
C 
C 
C 

600  CONTINUE 

IK  (I2.EQ.1)  GO  TO  614 
C 
C 

620  TLMSI 13)=  UI 13) — U C 1 3-1 ) 

TLMS ( 4 ) =  12 

L0=  3 

ZBAR1=  TLMS (4)  -  l.S  ♦  ITLMSC 10 ) -U( I3-I )  )  /  TLMSI 13) 

GO  TO  641 
C 
C 

95  CONTINUE 

IK  I  NOLMNT  .EG.  1  )  UACK1  =  l.E-20 
XBAR=  l.E-20 

ZBAR1=  l.E-20 

IK  1  NOLMNT  .EO.  1  I  GO  TO  90 
GO  TO  641 
C 

96  CONTINUE 

XBAR=  1 . 

Z8AR1=  UUI) 

GO  TO  b41 

C 

614  CONTINUE 
L0=  1 

C 

609  CONTINUE 

14=  10*1 

IK  I  Zt  14  I.EO.O.)  Z<  14  Is  EXPITLMSIS)-UII3)/THLTA) 

ZBRLOWS  (ZbKMNl 1 ) *. 1 ) **2 

IKIZURLOW.E8.0. )  ZBRLOWS  l.E-30 
C  ZBRMINI 1 )  IS  THE  MINIMUM  ALLOWED  ZHAK 

IK  (ZII4) .LT.ZHRLOW.ANO.LO.EO.I)  GO  TO  95 
IK  (Z(I4).GT.(1.E6) . AND.L0.E9.2)  GO  TO  96 
IK  I IS.EU.l  .AND.  LO.EQ.I)  BACK1=  SORT  I.5*ZI  ’)) 

XUAR=  ZII4)/(Z(I4) *l)ACK 1 ) 


5770 

5700 

5790 

5000 

5010 

5«t20 

5030 

5040 

,.,90 

5060 

5070 

5000 

5090 

S900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5900 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6000 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6200 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 


6400 

6410 
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ZliARls  XHAR 

IK  I12.Nt.l>  ZUAKls  /RAu I  +  HIU)-l. 
t>41  CONTINUE 
C 

16=  10*1-7 

C  lb  IS  PART  1NUEX 
C 

ZUARs  ZbAR  +  PARTU6)  ♦  <:IIAR1 


IF  IbVPASS.EO.U)  00  TO  23 

ESUM=  0. 

IF  I12.EQ.1)  00  TO  0o4 
17=  12-1 

UO  660  Jl=l >17 
16=  Jl+Il+1 

LSUM=  ESUM  *U( 16) 

6b0  continue 

664  CONTINUE 


ZI10*l-5)=ZUAHl 
EQUIVALENCE <MC l ) .Ztl)) 

MI5)  =  1ST  ELEMENT  MEAN  IONIC  CHARGE 
MI  15)=  2ND  E.EEMENT  MEAN  IONIC  CHARGE 
MI  25)  =  3RU  tl-EMENT  MEAN  IONIC  CHARGE 
MI 35)=  4TH  ELEMENT  MEAN  IONIC  CHARGE 
MI 45)=  STH  LLEMENT  MEAN  IONIC  CHARGE 


00  TO  1650'»650.651).L0 

650  CONTINUt 

TLMS 1 4 )  =  XBAR-XBAR*XI3AR 
Z I 10*1-4)=TLMSI4 ) /THtTA 
Z(10*l-3)=UI13)/THCTA+l.b 
Z(10*I-2)=U<13) 

Z 1 10* 1+1 ) =XbAK  *U( 13) 

ZSUM1=  ZSUM1+PART 1 16 )*Z 1 10* 1-4) *Z 1 10*1-3) 

ZSUM2=  ZSUM2+PART 1 16) *XOAR/ (Z I 14 )  +BACK1) 

ZSUM3=  ZSUM3+PART I  lb)  *  TLMSI4)/TAU 
GO  TO  653 

651  CONTINUE 

Z I 10* 1-4 )=1 ./TLMS I 13) 

ZI10*1-3)=TLMSI10)/THETA  +1.5 
Z I 10*1-2)=TLMS( IP) 

Z I 10*I+1)=UI 13-1 ) * IZUAR1-TLMSI4) +1 , )  +  ,S*  TLMSU3)  *I/RAR1- 

2  TLMSI4)+1.S)**2 

ZSUM1=  ZSUMl+PART 1 16) *Z 1 10*1-3) /TLMS 1 13) 

ZSUM2=  ZSUM2+  PART  I  lb)  /  TLMSI 13)  ♦ THETA  /PACK1 
ZSUM3=  ZSUM3+  PART 1 16) /  ILM5 1 13 ) +THETA/TAU 
653  CONTINUE 

Z 1 10*1+1 )=ESUM+Z 1 10*1+1) 

23  CONTINUE 

IFIZUAR  .GT.  ZMEAN)  GO  TO  94 


IF  I  AbSU.-  BACK  1  /ZUAR ) -EPbl  1 1 )  •  LE •  U.)  HYPA5S=  l+HYPASS 
IF IBYPASS  .GE.  2)  GO  TO  41 

30  CONTINUE 

IF  I  IS  .GT.  2  )  GO  TO  40 

31  BACK2=  BACKl 

UACK 1=  ZbAR 


6420 

6430 

6440 

6450 

6460 

6470 

6400 

6490 

6600 

6510 

6520 

6530 

6540 

6650 

6560 

6570 

6500 

65‘>0 

6600 

6610 

6620 

6630 

6640 

6650 

6660 

6b70 

6680 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6010 

6820 

6830 

6840 

6850 

6860 

6870 

6880 

6890 

6900 

6910 

6920 

6930 

6940 

6950 

6960 

6970 

6980 

6990 

7000 

7010 

7020 

7030 

7050 

7060 

7070 

7080 
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c 

c 


c 


c 

c 


c 

c 


c 


c 

c 


c 


l5s  I5«X 

ZUARLNS  ALOO(ZHAK) 
ZUARs  0 . 

GO  TO  21 


32  CONTINUE 

SNAFUS  ZUAK 

DYPASSs  2 

GO  TO  31 

40  CONTINUE 

IMZBAR.LT. ZUKMINtl)  )  GO  TO  o„ 

ZBKMIN(I)  IS  THE  MINIMUM  ALLOWED  /MAK 
EXIT  IF  ZBAK  IS  TOO  SMALL 
TLMS(1I )s  ZUAK  -2.*  BACK  1  ♦  UACK2 

HOLDZS  ZUAK 

TLMS(l*)s  ZUAK  -UACK1 

ZBAE-  ZUAK  -  <  TLMS  ( lc‘ )  **2 )  /  TLMSOl) 

APJVE  IS  AITKEN5  DLL-SOlJARf  ITERATION  CUNVt.KGr.MCF  IMPROVE  MI' NT 
PROCEDURE 

IF  I  (ZBAK.LE.O.)  .OK.  UUAR.OT.ZMEAM)  )  /I1ARS.4*  (HOI  DZ+flACK  1  ) 
IF ( IS  .GT.  16)  GO  TO  32 
GO  TO  31 

94  CONTINUE 

SNAFUS  ZBAK 

GO  TO  90 

90  CONTINUE 

PERFECT  GAS  PATH 
SNAFUS  0. 

98  CONTINUE 

LOs  4 

ZUARs  0. 

Xls  PHI/NUAK 

UZDTHTs  0. 

UZDTAUS  0, 

GO  TO  43 

101  CONTINUE 

IF  (THETA. GE.. 207107*1. /TLMSH(l))  GO  TO  HO 


LOW  TEMPERATURE  POLYETHYLENE  PATH 
ENERGYS  ENERGY  ♦  OXSNRG  *  (TLMSH(4)-1 . ) 

UEDTHTs  DEUTHT  ♦  UNOTHTwTHETA*  l.S  *PHI  *  OISNRG  ♦TLMSHdl) 

UEDTAUs  DEOTAU  ♦  UNOTAUwTHET A*  l.S  *PHI *DISNRG*TLMSU ( 10 ) 

DPOTHTs  DPUTHT  ♦  UNUTHT*THETA/  TAU*PHI 

OPOTAUS  DPDTAU  ♦  UNOTAUwTHETA/  tau*pmi 

GO  To  80 
SOO  CONTINUE 

ENERGYs  ENEKGY*CAKBNZ ( 1 ) 

UEDTAUs  UEDTAU*CAKUN2 ( 3> 

UEDTHTs  UEUTHT*CAKUN2(4) 

UPDTAUs  UPDTAU*CARUNZ(S) 

UPDTHTs  UPUTHT*CAKBNZ(b) 

GO  TO  80 


41  CONTINUE 

IF ( ZBAR . LT • ZBRM IN ( 1 )  )  GO  TO  90 
C  ZBRMIN ( I )  IS  THE  MINIMUM  ALLOWED  ZBAK 
C  EXIT  IF  ZBAR  IS  TOO  SMALL 

42  CONTINUE 

UZDTHTs  ZSUMX/ZSUM2 
OZDTAUs  ZSUM3/ZSUM2 
Xls  PH1*(I./NBAR*ZUAK) 

43  CONTINUE 


7090 

7100 

7110 

7120 

7130 

7140 


7170 

71H0 


7210 

7220 

7230 

7240 

72S0 

7260 


7290 

7300 


7310 

7320 

7330 

7380 


7340 

7350 

7360 

7370 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 


7630 

7640 

7650 

7660 

7670 
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PHESHRs  XI*THETA/TAH  76i)(l 

UPUTHTs  PKESHR/THLrA  ■*  fHEl  A/1  AlHU/llTHT  ♦  ('111  76<*n 

uputau=  (  theta*pmi*ozutau-pklshr  )  /  mi  77nn 

ENERGY:  1  •  l)*XI  ♦TIIL  r  A  7710 

UEDTHTs  1.54<XI4THLTA*UZnfllT  4  PHI)  7720 

UEDTAUs  1*  5*THLTA*D201  AU*PHI  77  ill 

IF  <  El  ON  ( 14 )  .E(J.  0.  )  od  TO  III)  7740 

C.  E I  ON  ( 1 4 )  IS  TO  HE  SLT  MEPOHL  I  IORY  TO  UOMfll  77',ll 

C  El  ONI  14 )  MUST  UE  SLT  NONZERO  TO  CALL  Tilt.  MOLI  ( ULAW  l.utl  Oh  MATT  77*, 0 

IF  < MATEHL.EQ.6.0K . MATLRL .E 0.306)  OO  To  SIIO  7770 

IF  (MATEHL.E0.101)  00  TO  101  77)10 

HO  CONTINUE  77  ■»!) 

IFIZUAR  .EO.  0.)  00  TO  «>t>9  7HOO 

UO  602  Is  1  * NOLMMT  711  in 

16=  10*1-7  71120 

C  1 6  INDEXES  PART  ARRAY  7H30 

2(10*I-l)=2(10*I-4)*  (  *(10*1-3)  -TIILTA//(lAR*n/UTMT)  7840 

2(10*1  )=  2(10*1-4)  *THL T A  *  <  l./TAU  -  D7IITAH/2HAP)  7850 

ENEROYs  ENER0Y4PART  <  10 )  *I’III*2  <  1 0*  1 4  1 )  71160 

UEUTHT=  UEUTHT+PAKT I Io)*PHI*7 ( 10*1-2) *  21 10*1-1 )  7070 

UEUTAUs  DEUTAU+PARTI  I6)*PHI*2<10*I-;>1*/(10*I)  7HH0 

062  CONTINUE  786(1 

669  CONTINUE  .  7900 


ARGSOS  -UPUTAU  4UPUTHT*DP0THT*THETA/UH)THT 

IF(ARGSO.GT.l).  )  60  TO  I6b9 
IFISnAFU.EQ.O. )  SNAFU=  ARGSu 
ARGSUS  0. 

1669  CONTINUE 

SNUSPUs  TAU*SQRT ( ARGSU ) 


C  7920 

670  CONTINUE 

X3=  SNAFU  7930 

100  CONTINUE  7940 

■E I  ON  ( 1 4  J  =  0.  79S0 

C  7960 

C  7970 

RETURN  7980 

C  7990 

150  CONTINUE  8000 

CI0N(14)=  97.0150  8010 

RETURN  8020 


SET  EI0NI14)  IF  THETA. LT.2EH0  OR  TAU.LT.  l.E-30 

8040 


******** ************* 
********************* 


SPECIAL  PATH  ******************** 
PATH=  -3.  ********************** 


6000  CONTINUE 

UO  6010  11=  ltNOLMNT 
111=  M( 10*1 1-6) 

C 


IF(Z(10*II-b).GT.(U(IIl)-.5))  GO  TO  6005 
GL=  2(10*11-5) 

LAG=  GL 

GALS  GL  -FLOAT (LAG) 

IF(GAL.GT..5J  112=  LAG  *2 
IFIGAL.LE. a5)  112=  LAG  <1 
GO  TO  6007 
6005  CONTINUE 

112=  2 ( 10*1 I-H) 


6007  CONTINUE 


113= 

112  4111 

41 

ESUM= 

0. 

IF ( I 12. 

EU.l)  GO  TO 

6060 

117= 

1 12  -1 

UO  6050 

JJ1=  1,117 

140 
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lltt=  JJl  +111  *1 

LbUM=  tSUM  *0(110) 

0060  CONTINUE 
6060  CONTINUt 

IF(Z(lO*II-t>)»LE»«5)  00  Tu  (,101) 

IF(Z(10*II-b)  .GT.  (U<  III)  -.*>))  «0  TO  bill) 

60  TO  6130 

6100  CONTINUE 

Xt)AR=  2(lO*Il-b) 

60  TO  6120 
6110  CONTINUE 

XBAR=  Z(10+II-b)  -U(Ill)  +  1-. 

6120  CONTINUE 

2(10*1 1*1 ) =  XUAR+UI1I3) 

60  TO  6140 
6130  CONTINUt 

2BAR1=  2  < 10* I  I"b ) 

TLMS(4)=  FLOAT (112) 

TLMS<13>=  U( 113)  -UC 113-1) 

2(10*11  +  1)=  U  ( 1 1 3-1 )  *  <  2IIAR 1  -U.MM4)  +1.)  +  .OJ  Tl.MM  <  3 )  *  ( 2HAR1  - 
ti  TLMS( 4 )  +1 .b) *+2 

6140  CONTINUt 

2(10*11+1)=  2(10*11+1)  +  tbUM 
6010  CONTINUt 


6143  CONTINUt 

XI=  PHI* ( 1,/NDAR  +  211AR) 

C 

PREStlR=  XI  +  THt  TA/T  AU 
C 

LNERGYr  l«b+XI+THtTA 
C 

IF(PATH.tQ. (-3. ! )  60  TO  61bU 

IF(MATERL.E<J.6.0R.MATERL.t0.306)  ENERGY!  (MERCY  +CAHI1H7<1) 
IF(MATERL.EQ.lOl)  GO  TO  6200 
61b0  CONTINUt 

UO  6160  11=  l«NOLMNT 
116=  10+II-7 

LNERGY=  ENERGY  +PART( I 16) *PHI*Z (10*11+1) 

6160  CONTINUt 
C 

bNAFU=  0. 

60  TO  670 
6200  CONTINUt 

IF(THETA. GE.. 207107+1. /TLMSIi(l) )  60  TO  6150 
ENERGY!  ENERGY  +DIBNRG* ( TLMGIU4 > -1 . ) 

60  TO  blbO 
CALL  MARI 
RETURN 
END 
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SECTION  IV 

EQUATION  OF  STATE  INVERSION  FROM  TEMPERATURE -DENSITY 
TO  SPECIFIC  ENERGY -DENSITY  BY  TABLE  LOOK-UP 

4.1.  INTRODUCTION 

In  order  to  obtain  solutions  to  the  general  equations  for  inviscid, 
compressible  fluid  flow  with  radiation  and/or  conduction  energy  transport 
mechanisms,  it  is  necessary  to  specify  at  least  the  following  thermo¬ 
dynamic  variables:  pressure,  P;  temperature,  8  ;  specific  internal  energy, 
E;  and  density,  p  .  The  equations  which  relate  these  four  thermodynamic 
quantities  are  usually  referred  to  as  the  equations  of  state.  If  local  thermo¬ 
dynamic  equilibrium  (LTE)  is  assumed,  the  equations  for  the  thermo¬ 
dynamic  variables  can  be  completely  specified  by  only  two  independent 
variables  (e.  g.  ,  temperature  and  density). 

Some  computer  programs  use  equations  of  state  with  8  and  p  as  the 
independent  variables  and  others  use  E  and  p  .  Comparison  of  problems 
calculated  using  both  types  of  programs  can  be  extremely  difficult  unless 
completely  consistent  representations  are  used.  The  inversion  of  an  equa¬ 
tion  of  state  given  in  terms  of  the  temperature  and  density  to  the  (E,  p  ) 
form  is  thus  required.  For  many  materials  of  interest,  analytic  in¬ 
version  from  (8,  p  )  to  (E,  p  )  is  not  a  trivial  matter. 

4.2.  METHOD 

One  method  of  inverting  equations  of  state  from  {8  ,  p)  space  to  (E, 
p  )  space  is  to  use  a  table  look-up  procedure  to  interpolate  from  one  set  of 
variables  to  the  other.  In  the  scheme  reported  here  a  two  step  process  is 
used  to  obtain  the  necessary  conversion.  First,  a  table  is  generated  from 
data  given  (or  calculated)  with  8  and  p  as  independent  variables.  This 
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table  is  punched  on  card*  in  DATA  STATEMENT  form.  Second,  these 
DATA  STATEMENTS  become  part  of  a  code  which  can  be  used  as  a  sub¬ 
routine  to  determine  the  temperature  and  pressure  given  E,  and  p  or 
t  =  1/p. 


The  actual  values  of  6  and  P  are  not  tabulated.  Instead,  the  table 
entries  have  been  chosen  to  be  Z,  the  mean  number  of  free  electrons  per 
atom,  and  £  n  I  where  I  is  the  internal  energy  due  to  ionization  and  excita¬ 
tion.  The  quantities  Zand  In  I  are  both  rather  weak  functions  of  density 
and  energy  over  most  of  their  range,  which  gives  rise  to  a  minimum  error 
when  interpolating  between  table  entries. 

The  other  thermodynamic  variables  are  easily  expressed  in  terms 
Z  and  I.  In  addition,  other  material  properties,  such  as  absorption  coef¬ 
ficients,  can  be  conveniently  calculated  from  Z. 

The  method  of  preparing  the  tables  of  Z  and  £n  I  is  fairly  straight¬ 
forward.  The  range  of  E  and  T  is  determined  by  available  data  or  as 
needed  for  a  particular  application.  The  tabular  entries  are  picked  such 


that 


E 

m 


E_  •  10^m~^^T 


T  =  T  • 


where  E^  =  minimum  value  of  E, 

7"z  =  minimum  value  of  r  , 

T  -  desired  number  of  points  per  decade  for  E, 

S  =  desired  number  of  points  per  decade  for  t„ 

The  values  of  Z  and  £n  I  at  the  desired  value  of  E  and  r  are  obtained  from 
the  existing  (6 ,  p  )  equation  of  state.  If  interpolation  is  required,  the 
energy  is  forced  to  be  within  0.1%  oi  the  desired  value.  The  values  of  t 
and  E  at  each  point  do  not  have  to  be  saved. 
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For  any  arbitrary  pair  of  values  of  (E,  T ),  the  proper  region  on  the 
table  can  easily  be  calculated.  Let 


and 


and,  let 


N  =  (log10  (r/rz)  *  S  +  1) 
M  ='  (log1()  (E/Ez)  *  T  +  1) 
n  =  truncated  value  of  N 


(103) 


and 


m  =  truncated  value  of  M. 


(104) 


Entries  at  (n,  m),  (n,  m  +  1),  (n  +  1,  m)„  and  (n  +  1,  m  +  1)  can  then  be 
used  to  obtain  interpolated  values  for  Z  and  In  1  at  the  desired  value  of 
(E,  r). 

4.3.  PROGRAM  GEST 


The  program  GEST  generates  a  table  of  Z  and  in  I  for  the  values  of 

E,  r  specified  by  input  data.  If  the  minimum  value  of  E  is  specified  as 

zero  by  the  input  data,  then  the  program  will  calculate  E  as  E  (  0  ,  r  ), 

Z  Z  o  max 

where  r  is  specified  by  input  and  9  is  chosen  such  that 
max  o 


z  (*o. 


T  )  < 
max 


0.2  0 

o 


where  is  the  first  ionization  potential  of  the  given  material. 

To  generate  this  table,  an  interpolation  must  be  performed  between 
an  initial  guess  at  a  temperature  0'  which  will  produce  E*  and  an  unknown 
temperature  9  which  will  produce  the  desired  value  of  E  indicated  by  the 
input  data.  Newton’s  method  of  linear  interpolation  is  used  repeatedly 
until  a  relative  error  of  0. 1%  is  obtained  between  successive  interpolations. 
Then  the  values  of  Z  and  I  are  obtained  using  the  final  value  of  0 .  If  I  is 
found  to  be  less  than  10-^  ev,  then  I  is  set  equal  to  10 


ev.  The 
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process  is  repeated  for  each  value  of  E  and  r  specified.  Once  the  table 
of  Z  and  in  I  is  generated,  the  DATA  STATEMENTS  for  the  program  EST 
are  punched.  (NOTE:  For  punching  DATA  STATEMENTS  on  an  IBM-7044, 
the  IBM  FORTRAN  IV  print  and  punch  routine  ECV  must  be  used. ) 


4  .,  3. 1.  Input 

Card  3  1  and  2  have  a  floating  point  field  width  of  10,  and  card  3  had 
an  integer  field  width  of  5. 


Mnemonic 
Card  1  Z 

A 
VI 
VZ 
S 

T 

DN 


Comment 

Atomic  number 

Atomic  mass  number 

First  ionization  potential 

Last  ionization  potential 

Number  of  tabular  pts.  /decad* 
of  T 

Number  of  tabular  pts.  /decade 
of  E 

Number  of  decades  of  r 


Card  2  DM 

TAUZ 

EZ 

Card  3  IS 


Number  of  decades  of  E 

Min.  value  of  r  in  table 

Min.  value  of  E  in  table.  If 
zero,  program  will  calculate 
an  EZ. 

Source  of  information  used  to 
generate  table. 

(NOTE:  At  this  writing  an  IS  of 
1  indicating  the  use  of  EIONX 
(see  Section  III)  is  the  only 
option  available.) 
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Mnemonic  Comment 

Card  3  II  — -18  Flags  to  indicate  the  use  of  aspe- 

(Continued)  cial  treatment  at  the  boundaries 

of  the  table.  If  the  flag  is  a  1, 
the  calculation  will  stop  when  the 
region  is  entered.  If  zero,  the 
calculation  will  proceed  with  the 
available  analytic  equation  in  the 
general  EOS  program. 


Regions  of  the  table  as  defined  by  II  through  18: 


3 

4 

5 

E 

max 

Et  2 

F 

6 

min 

1 

8 

7 

t  .  T 

min  max 


T  — 

4.3.2.  Output 

The  output  appears  in  two  forms:  printed  output  (for  checking  input 
data  and  the  calculations  of  the  table),  and  punched  card  output.  The 
punched  cards  are  in  DATA  STATEMENT  form  for  immediate  placement 
into  the  program  EST,  which  performs  further  equation  of  state  calcula¬ 
tions  from  this  data. 

4.4.  PROGRAM  EST 

The  program  EST  performs  a  two-dimensional  linear  interpolation 
within  the  limits  of  the  table  supplied  it  by  the  program  GEST.  If  a  region 
is  entered  which  is  outside  the  limits  of  the  table,  the  calculation  will 
either  stop  or  go  to  an  analytic  solution  which  is  based  on  the  values  of  the 
table  at  the  boundary. 
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Within  the  limits  of  the  table,  Eqs.  (103)  and  (104)  are  used  to  find 
indices  (as  functions  of  E  and  T )  for  use  in  an  interpolation  formula  to  find 
Z  and  ini.  The  interpolation  formula  used  is  as  follows: 

Z  (E,  T  )  =  Z  +  ( Z  -Z  )  D1  +  (Z  -Z  )  D2 

n,m  n+l,m  n,m  n,  m+1  n,m' 

+  (Z  , .  +  Z  -  Z  ,  -  Z  ,)D1  XD2  (105) 

n+l,m+l  n,  m  n+l,m  n,m+l'  ' 

where 


D1  =  N  -  n  and  D2  =  M  -  m 


(106) 


The  interpolation  used  to  obtain  in  I  is  performed  in  the  same  manner  as 
for  2  by  replacing  Z  with  in  I  in  Eq.  (105).  The  quantity  I  is  then  evalu¬ 
ated  as  exp(i  n  I). 

At  this  writing  only  regions  7  and  8  referred  to  in  Section  4.3. 1  have 

been  supplied  with  analytic  solutions.  These  solutions  are  based  on  using 

_ 2 

a  crude  approximation  to  the  Saha  equation.  For  0  »  I  the  value  of  Z 


is  proportional  to 


re*12  e  -V'’ 


(107) 


where  V is  the  first  ionization  potential  of  the  material  being  described. 
Therefore,  given  Z  (Eq,  tq)  from  the  table  boundary,  where  =  E^,  , 


Z  (E,  T  ) 
Z(E  ,  r  ) 

O  O  I 


.  /  r  \  /T\  /i  l  V  „ 

\  e  /  It/  \o  o'  J  1 

\  o /  \o/  L\o  / 


(108) 


In  both  regions  7  and  8,  6'  is  set  to  (E/E „)0  .  In  region  8, 

Z  o 

t  =  T  »  0  =  f(E  ,  r  ),  and  Eq.  (108)  can  be  written 

O  O'  Zj 


Z(E,  T)  =  Z(EZ,  r)/-2- 


/l  1  \  V1 

^  To  ~Tj  ^  (1°9) 


For  region  7,  r  =  r  on  the  boundary  of  the  table,  0  =  f(E„,  t  ), 

o  max  1  o  Z‘  max" 


and  Eq.  (108)  is  written 


mar.-m  m 
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Z  (E,  r)  =  Z(E  ,  r  ) 
'  ’  '  '  Z’  max' 


exp 


0  0' 
o 


iA  Vji]  mo, 

J 


For  both  regions  7  and  8,  the  value  for  I  is  approximated  as  Z  times  Vj. 
The  temperature  and  pressure  are  obtained,  given  Z  and  I,  from  the 


relations 


where 


e  =  (E  /<p  -  I)  /  [  1.5(1  +  Z)] 

(p  =  9.648679  X  10U/A 

p  =  (p  (i  +  z)  eh 


(ill) 


Section  4.  5  contains  the  mnemonics  used  for  both  GEST  and  EST. 
Section  4.6  contains  a  listing  of  GEST  and  EST  and  an  error  routine,  ERR, 
used  by  GEST.  EST  also  includes  a  list  of  the  DATA  STATEMENTS  pro¬ 
duced  by  the  program  GEST.  E,  t,  and  P  are  in  cgs  units,  and 

j 

0  and  I  are  in  ev. 

4.5.  APPENDIX:  MNEMONICS  FOR  GEST  AND  EST 


A 

* 

AIN 

I,  in  ev 

ALGE 

l°glO  E 

ALGT 

losio  T 

ALIN 

ini 

DLGE 

i°*io  (E/V 

DLGT 

logio(T/To’ 

DMLE 

AE  above  position  n,  m  in  table 

DNLT 

At  above  position  n,  m  in  table 

i 

E 

Specific  internal  energy 

EILN1D 

Array  of  f  n  I 

EL 

logi0  E 

*See  input  for  GEST 
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EM 

Max  value  of  E  for  table 

EMAX 

Value  of  E  used  in  interpolation 

EMIN 

Value  of  E  used  in  interpolation 

EZ 

* 

1 

Ionization  energy 

11-18 

* 

IS 

* 

M 

Index  for  table  entries 

N 

Index  for  table  entries 

PHI 

V  (see  Eq,  (111)) 

T 

* 

T 

Specific  volume 

TAUL 

logio  T 

TAUM 

Max  value  of  t  for  table 

TAUZ 

THETA 

0  (temperature  in  ev) 

THMAX 

6  max  used  in  interpolation 

THMIN 

0  min  used  in  interpolation 

VI 

* 

VF 

* 

Z 

* 

ZBAR 

Z.mean  number  of  free  electrons 

ZBID 

Array  of  ZBAR 

*See  input  for  GEST 
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4.6.  APPENDIX:  LISTING  OF  GEST  AND  EST 


ttl  FOR  GEST/A*  GEST/RSE1*  GEST/R1 

C  GENERATt  EQUATION  OF  STATE  TABLES 

C 


9000 

9001 

9002 

9003 

9004 

9005 


DIMENSION  THETA (50* 50) *CARD( 14) 

DIMENSION  TAUL(bO) *TAU(50) *EL( 50) *E(50) *ZU1D(2500> *EILNID(2500> 
COMMON/LMS/  EION(20) 

COMMON/LMSU/  TLMS<16) 

EXPT(Q)=EXP(2. 3026*0) 

FORMAT  (l2Afa) 

READ  (5*1)  (CARD! I) *  1=1*  12) 

WRITE  (6*1)  (CARDU).  I  =  1.  12) 

FORMAT  (7F10.5) 

FORMAT (1415) 

FORMAT (1X.1P7E10.4) 

F0RMATC6X14H  DIMENSION  Zfl( 12. 1H* 12* 7H) *EILN( 12* lH* 12. 1H) ) 
FORMAT(bX35H  EQUIVALENCE  (ZB.ZB1)*  (EILN.ElLNl)  ) 

FORMAT (5XIl*b(lPlE10>3*lH*) ) 


9006  FORMAT (6X24H  OATA  TAULZ.Ei.Z  *  S.  T.PHI/  ) 

9007  FORMAT (6X36H  DATA  NN.MM* II *  12 *  13* 14 *  15* 16* 17* 16/  •) 

9008  FORMAT (5X1 1  * 1H/) 


9009  FORMAT (6X16HC0MM0N/EST/EILN( 12 * 1H)  ) 

9010  FORMAT  (4H  EL) 

9011  FORMAT  (6H  TAUL) 

9012  FORMAT  (6H  ZBAR) 

9013  FORMAT  (7H  THETA) 

9014  FORMAT(5XI1*1P1E10.5*5(1H* 1P1E10. 3) . 1H/) 

9015  FORMAT (6X.8H  DATA  ZUI2.1H/) 

9016  FORMAT (6X14H  COMMON/EST/ZBI2. 1H( 12* 1H)  ) 

9017  F0RMAT(6H  E1LN) 

9010  FORMAT (6X2BH  DATA  TAUM.EM* TAUZ.EZ* VI* VZ/)  * 

9019  FORMAT (5X 11*9(13* 1H*)*I3*1H/) 

9020  F0RMAT(6X11H  DATA  E1LN/) 

9021  FORMAT(6X10H  DATA  EILNI2.1H/) 

.  9022  FORMAT (6X16H  C0MM0N/EST/EILNI2. 1H( 12* IH)  ) 

9031  FORMAT ( 5X11  * 1P1E10>3* 1H/) 

9032  FORMAT (5X11  * 1P1E10>3*  1H.1P1E10.3  *1H/) 

9033  FORMAT (5X11 *1P1E10*3*2(1H* 1P1E10 *3) . 1H/) 

9034  FORMAT! 5X11 *1P1E10.3*3(1H*1P1E10. 3) *1H/) 

9035  F0RMAT(SXI1 *1P1E10.3*4(1H* 1P1E10* 3) *1H/) 

9036  FORMAT (5X1 1  * 1P1E10*3*5( 1H* 1P1E10* 3) *1H/) 

C  READ  AND  STORE  INPUT 

READC5.9000)  Z.A.V1. VZ*S*T*ON*DM*TAUZ*EZ 
WRITE (6. 9002)  Z*A*V1.VZ*S*T*DN* DM .TAUZ.EZ 
READ (5.9001)  IS* 11 . 12. 13. 14. 15. 16* 17. IB 
WRITE (6* 9001) IS *11*12. 13*14*15*16*17*10 
Z  =  ATOMIC  CHARGE  NO. 

A  =  ATOMIC  MASS  NO. 

VI  =  FIRST  IONIZATION  POTENTIAL 
VZ  =  LAST  IONIZATION  POTENTIAL 
S  =  NO.  OF  TABUwAR  PTS/DECADE  OF  TAU 

T  =  NO.  OF  TABULAR  FTS/DECADE  OF  E 

DN  =  NO.  OF  DECADtS  OF  TAU 

DM  =  NO  OF  DECADES  OF  E 
TAUZ  =  MIN  VALUE  0 T  TAU  IN  TABLE 

EZ  =  MIN  VALUE  OF  E  IN  TABLE 

IS  =  SOURCE  USED  FOR  TABLE  GENERATION 
=  1  USE  EIONX 

II  THRU  18  FLAGS  INDICATING  TREATMENT  AT  BOUNDARIES  OF  TABLE 
IN  =  1  STOP  IF  REGION  IS  ENTERED 

=  0  CALCULATE  WITH  AVAILABLE  ANALYTIC  EQS 
3*4*5 


*  * 

E  2  *  *  fa 

*  * 
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C  1  *  <1  *  7 

C  TAU 

L=Z 

PHl=9.64d679LU/A 

AM=T«DM+1.0 

AN=S*DN*1.0 

NN=AN 

mm=am 

TAUM=TAU2*10.0**dN 
TAULI 1 )=AL0G1G(  TAUZ) 

OTAUL=l./S 
TAIM  1 )  =  TAUZ 
IF(EZ.  Nt.O.)  GO  TO  30 
THA  =  1.1 
00  *0  1=1*10 
10  THA  =  THA  -  .1 

CALL  EIONX(THA*TAUM*L*0.) 

SI  =  EION( 14) 

IFIS1.NE.0.)  CALL  EHH(Sl) 

IF<EI0N(3).GT.  .1  *  THA/V1)  GO  TO  20 
El  =  E 1 ON ( 8 ) 

GO  TO  30 
20  CONTINUE 
SI  =  10.20 
CALL  EKK(Sl) 

30  CONTINUE 

C  PREPARE  TABLES  OF  SPECIFIC  DENSITY  AND  ENERGY 

C  IN  REAL  SPACE  ANU  IN  LOG  BASE  10.  .1 

UO  SO  I=2*NN  | 

TAUL(I)=TAUL(I-1)+DTAUL  : 

TAU( I) =EXPT (TAULI I ) )  1 

50  CONTINUE 

EM=£2*10.0**DM  i 

EL ( 1 ) =ALOG10 ( EZ ) 

OEL=l./T 
Ed)  =  El 

UO  bO  1=2*  MM  I 

EL(I)=EL(I-1)*DEL 

E(I) =EXPT ( EL (I ) ) 

60  CONTINUE 

WRITE  (6*9011) 

WHITE  (b*9002)  ( TAULI N) *  N  =  1*NN) 

WRITE  (6*9010) 

WHITE  (6*9002)  (EL(M>*  M  =  1*MM> 

C  DETERMINE  SOURCE  OF  EOS  DATA 

60  TO  (100*200*300*400) *IS 
100  CONTINUE 

DO  149  M=1*MM 
DO  149  N=1*NN 
K=(M-t)*NN«-N 

C  INITIAL  GUESS  AT  THE  TEMPERATURE 

THMIN  =  THETA(N*M-1) 

THMAX  =  THETA(N-1*M) 

IFIN.EQ. 1)  THMAX=E(M)/PHI 

IF(  (N.EU.l) .AND. (M.GT.  1)  )  THMAX=3.«THETA(N*M-1) 
IF(M.EQ.l)  THMIN  =l.E-3 
THETA (N*M)  =THMIN 
DO  120  1=1*20 

CALL  EIOHX( THMIN* TAU(N) *L* 0. > 

SI =E ION (14) 

1F(S1.NE.0.)  CALL  EHR(Sl) 

EMXN=EI0N<8) 

CALL  £IONX( THMAX *TAU(N) *L*0. ) 

EMAX=EION<  8) 

S1=E10N( 14) 


151 


o  o 
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IF<Sl.Nfc.O.)  CALL  Ennis!) 

CALL  EXONXi THETA (N,M) ,TAU(N),L,0«) 

C  NEWTON* S  INTERPOLATION 

THETA(N*M)=THLTA(N,M)4(THMAX-THMXN)*(F(M)-EX0N(8) ) 

*  /(EMAX“EM1N) 

/E‘«I.LE..Q01I  GO  TO  130 
IF(EION(a).LT.E(M) )  THMIN=TMETA(N*M) 

120  e«TX,S£‘,-"*t,“” 

S1=10.12U 
CALL  ERR (SI) 

130  CONTINUE 

C  2BAR  ANO  EION  OBTAINED  FROM  EIONX 

ZB10(K)=EI0N(3) 

AEIs(EI0N(8)-1.5*EI0N(l)*TLMS(9))/PHI 
IF(  AEI.LE.  l.E-10)  AEI=1.E-10 
EILNIU(K)  =ALOG(AEI) 

149  CONTINUE 

C  200  continue^0  F0K  FUTUKE  S0UttCES  0F  E0S  0ATA 

300  CONTINUE 
400  CONTINUE 


PUNCH  DATA  STATEMENTS 
500  CONTINUE 
10=1 


FOR  PROGRAM  EST 


PUNCH  9016 

PUNCH  9036,IU*TAUM,EM,TAUZ.EZ.V1,VZ 

PUNCH  9006 

PUNCH  9035*ID*TAUL(1)*E:L(1),S»T«PHI 

PUNCH  9007 

PUNCH  9019, ID,NN,MM, 11, 12, 13, 14,15, 16,17, 

PUNCH  9003,NN,MM,NN,MM 

PUNCH  90U4 

KM=NN*MM 

NM=KM 


IF (NN*MM.GT • 54 )  NM=54 
PUNCH  9016, ID, NM 
PUNCH  9015,10 
ICNTSO 

DO  549  1=1, KM, b 
16=145 


ICNT=ICNT+1 

IP=I 

IF((I6.LT.KM).OR.(ICNT.E0.10)  t  GO  TO  539 

530  I 6— KM 
KI=KM-IU 

GO  TO  (531, 532, 533, 534, 535), KI 

531  PUNCH  9031, ICNT, (ZBIO(K) , K=IP, 16) 

GO  TO  548 

532  PUNCH  9032, ICNT,  (ZB1D(K) ,K=IP, 16) 

GO  TO  546 

533  PUNCH  9033, ICNT, (ZB1D(K) ,K=IP, 16) 

GO  TO  548 

534  PUNCH  9034, ICNT, (ZB1D(K) ,K=IP, 16) 

GO  iro  548 

535  PUNCH  9035, ICNT,  (ZBIO(K) ,K=IP, 16  ) 

GO  TO  546 

539  IF( ICNT.LT • 10)  GO  TO  540 
Xl)=ID*l 
NM=54 

IF( ( ID  )*54.GT.KM)  NM=KM-( ID-1)*54 
PUNCH  9016, ID, NM 
PUNCH  9015,10 
ICNTS1 
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1F< Ib.GT.KM)  GO  TO  530 
00  TO  54b 

540  IFUCNT.NE.9)  60  TO  545 

HUNCH  9036. ICNT. (ZBlD(K) .K=I. 16) 

60  TO  540 

545  PUNCH  9f)05.ICNT.  (Z81D(K).K=1.  16) 

548  CONTINUt 

549  CONTINUt 
NM’KM 

IF*NN*MM.6T.54)  NM=54 
10=1 

PUNCH  9022* ID* NM 
PUNCH  9021» ID 
ICNT  =0 

DO  599  1=1 'KM' b 
16=1+5 
ICNT=ICNT+1 
IP=I 

IF( <16. LT. KM). OK. (ICNT. EO. 10)  )  60  TO  570 

560  I 6= KM 
KI=KM-I+1 

GO  TO  (5bl.562.5b3.5b4.565).KI 

561  PUNCH  9031' ICNT  * (E1LN1D(K ) . K=IP. 16) 

60  TO  598 

562  PUNCH  9032' ICNT  * (EILNID(K) .  K  =  IP» 16) 

60  TO  598 

563  PUNCH  9033' ICNT . (EILN1D (K) *K=IP. 16) 

60  TO  598 

564  PUNCH  9034. ICNT. (EILN1D(K).K=IP. 16) 

GO  TO  598 

565  PUNCH  9035. ICNT. (EILN10(K).K=IP.I6) 

60  TO  598 

570  IF(ICNT.LT.IO)  GO  TO  580 
I0=ID*1 
NM=54 

IF< (ID  )*54.GT.KM)  NM=KM«( ID-1 )*54 
PUNCH  9022. ID' NM 
PUNCH  9021.10 
ICNT=1 

IF( 16.GT.KM)  GO  TO  560 
GO  TO  585 

580  IF(1CNT.NE.9)  GO  TO  585 

PUNCH  9036' ICNT' (EILNIO(K) .K=I» 16) 

GO  TO  598 

585  PUNCH  9005.ICNT* (EILNID(K) .K=I«I6) 

598  CONTINUt 

599  CONTINUE 

C  EDIT  PRINTS 

600  CONTINUE 
WRITE  (6.9012) 

WRITE (b. 9002)  (Z810(K) .K=1.KM) 

WKITE(6'9017) 

WRIT£(6.9002)  <EILN10(K>.K=1.KM) 

WRITE  16.9013) 

WRITE  <6.9002)  UTHtTACN.MI#  N  =  l.NN).  M  a  l.MM) 
700  CONTINUE 
CALL  EXIT 
END 

HI  FOR  EKR/A.  ERR/RStl.  ERR/R1 

SUBROUTINE  ERR t SI) 

3  FORMAT  <6H  51  =  F10.4) 

WH1TE<6«3)  SI 
CALL  EXIT 
END 

01  FOR  LIUEX.  LI8EX/FJ 
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SUBK0UTINE  LIbLX<TAU*E.THA,P*ZHAN*GO) 

COMMON  Z<90) 

LUUI VALLNCE  (Z(9U)*bl) 

. . ur  momku  *« . 

*  uw«w 

1  9*2'  2.000E+0*  B.OOOE+O*  S.244E+9/ 

DATA  NN*MM* 11  *  12* 13* 14* lb* lb* 1 7* 1AZ 
1  2J*'  1#  1»  1*  1*  0#  0/ 

DIMENSION  Zb(2B*25) *EILN(2B*25) 

EQUIVALENCE  (ZB*ZU1)*  (E1LN*EILN1) 

COMMON/EST/ZB  1(S4) 

DATA  ZB  1/ 

l  b*9K7^InS'  f'^5",10'  b‘9b7t>10*  1* 237E-09*  2.200E-09,  3.912F-09* 

c  b«V57t  U9#  l*<i37E“0b#  2«20UE“U8#  3*912E— 08#  6«9S7r—nft«  1  **-7r  nv 

3  2.2U0E-U7,  3.9UE-U7,  6.9SSE-07,  iZlK-ll.  si^E-Sb!  i1o4rIuL' 

5  t'u«c”Ua'  f*229E-UB*  2.173E-05*  3.fl2aE-05#  64b94E-05*  1^15bF-04« 

a  1.9_7E-u4*  3.911C-UB*  6.9SbE-0a*  1.237E-07*  2«2l)0E-07.  3  911F-07 

6  B.9SSE-U7,  1.237E-0O,  2.19BE-0b,  3.907£-6b!  btoAlE-SL  L'XzSSs 

« a:b94E-:0a45: 9:?s;:  J:S!£:S:  }:K:00;:  I:?^|:S5;  33:S:0°<; 

9  CoS/EST/Zb'5^)3'  2*001E"06,  3.563E-06,  6.333E-06,  lilZSE-USZ 
DATA  Zb  2/ 

1  1*997E“U5*  3*S4zE<'Ub*  6.265E-0S#  1.104E-04*  1.932E-04*  3  34?F-iiU4 

2  S.069E-U4,  9.331E-U4,  1.499E-03*  2.279E-03*  3.2b4E-03!  A.JSs™! 

u  i**couE"0o'  7,394E_U3*  B.953E-03#  1.054E-02*  1.217E-02*  1.37BE-02* 

4  1.529E-U 2*  l.b79E“U2*  1«H23E”02*  .4.U31E-05*  7.149E-05*  1  2b3F-nn 

b  2.223E-U4*  3.679E-U4.  6.677E-04*  1.124E-03#  1.B47E-03#  2*“03F-U3! 

7  ?*’i3nt-Uo'  6*l3iJE-u3#  8.283E-03#  1.064E-Q2*  1.312E-02*  1.566F-02* 

1  3  ill Egl  Hi!E“02'  2‘bb2E-°2'  2.7761-02,  2.9ME-SI* 

9  1  *149^3  **b67E“02'  3.739E-02,  3.950E-04,  S.91BE-04, 

JoImON/E^/ZB  3?5^  3*264E-°3'  5. 09bE“03*  7.SS7E-03.  1.060F-02A 

DATA  Zb  3/ 

p  3*747r"nf'  J'^oir”02'  2.200E-02*  2.601E-02*  2. 995E-02*  3.3B2F-02* 

3  5‘Ssflnf*  £‘?7pr~Up'  4-419E“02'  4»725E-02.  5.013E-02*  S.2B3E-0», 

3  B.S3SL  02*  B.772E-U2*  a.994E-02*  6.203E-02*  6.399E-02*  2.214F-03. 

4  3.b97E-U3*  5.987E-U3*  9.230E-03*  1.348E-02*  1.8blE-02*  2.446F-02* 

5  3.0B1E-U2*  3.6BSE-U2*  4.29BE-02*  4.8S7E-02*  5.446E-02*  5.9B1E-02* 

6  6.471E-02*  6.927E-U2,  7.349E-02*  7.741E-02,  B.103E-02*  a'JSyF-^ 

7  8*7blE-U2#  9#041E“02#  9#310E-02#  9*5blE*C2#  9*795E-02#  1.001E-D1# 

9  5*399^2'  b*33^”np'  *‘b67E“02'  2.629E-02.  3.501E-02,  4.446F-02, 

COMMON/EST/ZU  4(54?  7‘2Z0^>  8.052E-02,  8.023E-02*  9.533E-02/ 

DATA  ZB  4/ 

o  J *  ,1*U79E-01#  1*134E-01*  1*184E«01*  1.230E“01*  1.272E— 01* 

2  i *34oE-0X*  1.379E-01*  1.410E-0I*  1.43BE"01»  1.464F-01* 

3  1.4B9E-01*  2.062E-U2*  3.0B6E-02*  4,2biE-fJ2*  5.6I3E-02*  7.047E-02* 

4  ?-“2frE-°2’  l.UOE-Ol.  1.227E-01,  r.334i-Sl,  l:55II- Sf: 

,  f f *  f«W7E-Bl.  l*66BE”0i*  1*733E-01*  I«792E”01*  1«84SE-01* 

7  J*?3^"0!'  i*979E-01'  2.016E-01,  2*  05iE”01*  ^SaSE-Si, 

8  4.294E“02*  6.053E-02*  6.040E-02*  1.013E-01* 

9  2*177F-01 *  i*p«4F"n?‘  i*b05E"01'  1«772E-01,  I.922E-01,  2,oa7E-01* 

wS/EST/Zb  5?5^  2*3fl°E-01'  2*465E”01  *  2*t,42E-01.  2.M2F-0!/ 

DATA  ZB  5/ 

2  Z.’SbSE-Sl:  I*983F”fM’  f-I"E*2J'  2-S3°E-01,  2.B73E-01,  2.913E-01* 

X  7  9,..,E  .  ,  2.9B3E-01*  3.0iaE-01*  7.700E-02*  1.047E-01*  1.34BF-01* 

3  i*b!i:E-0J'  l*93aE-01*  2.207E-01*  2.450E-OI*  2.6b7E-01*  2.859E-01* 

5  3* 7PBE-01*  307HPr’nf'  ^3i°E-01'  3*426E”01*  -.53^  0).*  3.624E-01* 

b  k'K?F-2l  ^®50E-01»  9.W1E-01.  3.96^-al*  4,01bE-01« 

7  S’Sfif  ^  4V103E~01*  ‘♦•146E-01.  4.1B2E-0I*  1.244E-01*  1*652E-01* 

7  2.07BE-J1*  2.497E-01*  2.B91E-01*  3.250E-OI*  3.570E-01*  3.8a0E-01* 
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ti  4.1002-01*  4.31oE-0l*  4.505E-01*  4.67lE-01->  4.B17E-01*  4,94BE-01+ 

9  5.U54t-0l*  5.145E-01*  5.226E-01*  5.29JE-01*  5.368E-01*  5.427E-01/ 

COMMON/EST/ZB  6(54) 

DATA  2b  6/ 

1  5.4812-01*  5.530E-01*  5.575E-01*  5.616E-01*  5.654E-01+  1,8632-01* 

2  2.434t-(Jl*  3.02UE-U1*  3.5682-01*  4.117E-01*  4.595E-01*  '5.017E-D1* 

3  b.  3452-1)1 *  5.b24E-(Jl*  5.8552-01*  6. 0522-01*  6.21BE-01*  6.3702-01* 

4  0.499E-U1)  6.6132— Ul *  6.715E-G1*  b.ai)bE-01*  6.8B7E-01*  6.9602-01* 

b  7.0262-01*  7. 067E-01 *  7.1+2E-01*  7.192E-01*  7.239E-01*  7.2B1E-01* 

6  2. 6292-01*  3. 396E-01 *  4,1742-01*  4.9232-01*  5.592E-01+  6.139E-D1* 

7  6.5932-01*  6. 960E-C1 *  7,2722-01*  7.534E-01*  7.75BE-01*  7.9502-01* 

6  B. 1172-01*  B.2b2E-01  *  B.390E-D1*  6. 504C-01+  H.605E-01*  B. 6952-01* 

9  8.7772-01*  6.BblE-0l *  B.91BE-01*  8.979E-01*  9.U35E-01*  9.0872-01/ 

COMMON/CST/d)  7(54) 

DATA  Zb  7/ 


1 

9,1352-01  * 

3.5332-01 • 

4.511E-01*  5.555E-01 * 

6.501E-01* 

7. 26B2-D1. 

2 

7.B952-01 1 

8.404E— 01  * 

3.8182-01*  9.1682-01* 

9.463E-01. 

9.714E-C1* 

3 

9.9292 -01* 

1.0122  00* 

1.0282  00*  1.D42E  00* 

l.D5£E  OD* 

I.D60E  on* 

4 

1.0762  00* 

1.0B5E  00* 

1,0932  00*  l.lD’.E  00* 

1.100E  DO* 

1,114E  on. 

5 

1.1202  00* 

1.1252  00* 

4, 540E-D1 ♦  5.9192-01* 

7.244E-01* 

B. 3292-01 . 

6 

9.2062-01* 

9.913E-01* 

1*0492  DG*  1,0962  DO* 

1 1 135E  DD* 

1.168E  OD* 

7 

1.1962  00* 

1.220E  00* 

1.241E  DO*  1.2592  DO* 

1.275E  00. 

1.289E  UO* 

a 

1.3022  00* 

1.313E  00* 

1.3232  OD*  1.3322  DO* 

1.34DE  DO* 

1.3482  un* 

9 

1.3552  00*  1.3612.  00* 
COMMON/EST/ZB  8(47) 
DATA  2b  6/ 

1.3672  DO*  6.2322-01* 

7.683E-U1* 

9. 2D9E-D1/ 

1 

1.0452  00* 

1.1442  00* 

1.2242  00*  1.289E  00* 

1.341E  DO  * 

1.3H6E  on. 

2 

1.4222  00* 

1.453E  00* 

1*4802  00*  1.5042  00* 

1.525E  DD* 

J.544E  un* 

3 

l.bbOE  00* 

1.575E  00* 

1.5882  00*  1.6002.  DO* 

1.6HE  00* 

1 . 0 on* 

4 

1.626E  00* 

1.636E  00* 

1.6442  00*  1.650E  00* 

B.692E-D1* 

9.7T»9E-D1* 

5 

1.1492  00* 

1.29UE  00* 

1.402E  00*  1.492E  QD* 

1. 56 9E  OD* 

1.633E  On* 

6 

1 . 6662  00* 

1.7302  00* 

1.7682  00*  1.7992  OD* 

1.827E  DO. 

1.851E  on. 

7 

1.672E  00* 

1.8902  00. 

1.907E  DO*  1.9222  DO* 

1.935E  00. 

1.947E  DO* 

a 

1.9582  00*  1, 966E  CO* 
COMMON/EbT/ZB  9(29) 
DATA  Zb  9/ 

1.977E  00.  1.905E  00* 

1.993E  00/ 

5 

9. 721E-1 . 

1.216E+0. 

1.415E+0. 

1.50DE+D* 

1.71RE+D* 

6 

1.B292+0* 

1.91BE+0. 

1.991E+0* 

2.051E+0* 

2. 100E+D* 

2.143E+n* 

7 

2.1B02+0* 

2.211E+0* 

2.239E+0* 

2.263E+D* 

2.2842+0* 

2.3D3E+n* 

a 

2.320L+0* 

2.3352+0* 

2.348E+0. 

2.3612+0* 

2.372E+D* 

2.3B2E+0* 

9 

2.3912+0*  2.401E+0* 

C0MM0W/2ST/ZU1 0 ( 54) 
DATA  ZB10/ 

1.217E+0* 

1.497E+0* 

1.7432+0* 

1 i 944E+D/ 

1 

2,1032+0* 

2.2292+0* 

2.331E+0* 

2.415E+0* 

2.485E+0* 

?..  538E+H  * 

2 

2.5B42+0* 

2.6232+0* 

2.656E+0* 

2.6B5E+D* 

2.711E+D* 

2.733E+0* 

3 

2.7542+0* 

2,7722+0. 

2.788E+0( 

2.80'jE+D* 

2.617E+D* 

2,B28E+n* 

4 

2,8392+0* 

2.850E+0  * 

2.859E+0* 

1.505E+0* 

1.854E+0* 

2,1432+n* 

5 

2.3732+0* 

2.S50E+0* 

2.6B1E+0* 

2.7B6E+0* 

2.B72E+D. 

2, 943E+D* 

6 

3.0032*0* 

3,0542+0* 

3.097E+0* 

3.135E+0* 

3.168E+0* 

3.1972+0* 

7 

3.2232+0* 

3.246E+U* 

3.266E+0* 

3.2B5E+0* 

3.301E+0* 

3.317E+0* 

6 

3,3312+0* 

3,3432+0* 

3.355E+0* 

3.366E+0* 

1.B70E+0. 

2.27RE+0* 

9 

2. 6002+0  *  2.8342+0* 

COMMON/EST/ZBll (54) 
DATA  7811/ 

3.019E+0* 

3.164E+0* 

3.2B4E+0* 

3. 3B1E+0/ 

1 

3.4612+0* 

3.527E+0* 

3. 582E+D* 

3.630E+D* 

3.672E+0. 

3.7082+0* 

2 

3.7392+0* 

3, 7oBE+0* 

3.793E+0* 

3.B15E+0* 

3, 836E+0 * 

3.854E+0* 

3 

3.8712+0* 

3. BU6E+0 * 

3. 900E+0* 

3.913E+0* 

3. 9252+0. ; 

2.303E+0* 

4 

2.7462+0* 

3.082E+0* 

3.344E+0* 

3.54BE+0* 

3.726E+0* 

3.834E+0* 

b 

3.9382+0* 

4.0252+0* 

4.098E+0* 

4.161E+0* 

4.2142+0. 

4.261E+0 * 

6 

4.3012+0* 

4.337E+0* 

4, 369E+0. 

4.397E+0* 

4.422E+0* 

4.445E+0* 

7 

4.4662+0* 

4.485E+0  * 

4.502E+0* 

4.51BE+0* 

4.532E+P* 

4.545E+0* 

6 

2.7802+0* 

3.256E+0* 

3.627E+0* 

3.909E+0* 

4.130E+0* 

4.307E+0* 

9 

4,4492+0* 

4.566E >0* 

4.661E+0* 

4.743E+0* 

4.812E+0* 

4.B72E+0/ 

COMMON/EST/ZB12 ( 54 ) 
DATA  2612/ 
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1 

4.924E+0# 

4.9b9E+0# 

5.009E+0# 

2 

b« 130E+0# 

f .1S3E+0# 

b. 174E+0# 

3 

b.243E+0# 

3.307E+0# 

3.828E+0# 

4 

4.98bE+0# 

5. l4bE  +  0 » 

5.274E+0# 

b 

b . bb2E  +  0 » 

b. 623E  +  0 » 

b. bb9E+0» 

6 

b. 772E+0# 

5.794E+0# 

5.814E+0# 

7 

b.bbUE+0# 

b,894E+0# 

3.901E+0# 

b 

b. b2bL+0» 

b.bbbE+0# 

b.767E+0# 

9 

6.067E+0# 

6.119E+0# 

6. 16tE+0# 

C0MM0N/EST/2B13(  9) 
DATA  2B13/ 


1  6.3U6E+0#  6.334E+U#  b.3b8E+0# 

2  b.437E+0»  6.4b3E+0#  6.468E+0/ 

COMMON/tST/tILN  l(b4) 

DATA  EILN  1/ 

1- 1.961E  01.-1.961E  01 »-l ,96lE  Olr 

2- l.b72E  U1»-1.614E  01»-l.bbbE  01 » ' 

3- 1.32bE  01#-1.26bE  U1»-1.210E  01#' 

4- 9.802t  U0#-9.229E  00.-8. 659E  00#- 

5- 6.461E  00»-1.499E  U1.-1.440E  01#< 

6- 1.210E  0l»-l.lb3E  0l»-l,09bE  01# 
7~8.bb4E  00»-b.084E  0U»-7.bl8E  00# 

8- b.393t  U0#-4.921E  00.-4, 507E  00# 

9- 3.336E  00»-3.144E  00»-1.104E  01# 
COMMON/EST/tILN  2(b4) 

DATA  EILN  2/ 

1- 8.743E  U0»-b.l71E  00»-7.600E  00# 

2- 5.- ./98E  00#-4.b99E  0U#-4.425E  00# 

3- 3. UbbE  U0#-2.b29E  00.-2.63bE  00# 

4- 2 < 103E  00.-2.009E  00.-1.927E  00# 

5- 6..334E  U0#-b.777E  UU#-5.234E  00# 

6- 3.363E  00#-3.01bE  UU#-2.716E  00# 

7- 1.929E  00.-1.797E  UU#-1.6b7E  00# 

8- 1.367E  00#-l .308E  00.-1.256E  00# 

9- 4.657E  00.-4.139E  00.-3.647E  00# 
COMMON/EST/LILN  3<b4) 

DATA  EILN  3/ 


5.045E+0# 

5. 076E+0# 

5.105E+0# 

b. 194E+0# 

b.211E+0# 

5.22AE+0# 

4.230E+0# 

4.b44E+0# 

4.7fi9E+0r 

5.383E+0# 

b.474E+0# 

5.536E+0# 

b.692E+0# 

5.721E+0# 

5.74BE+0# 

S.833E+0# 

b . 850E  +  0  # 

5.866E+0# 

4.474E+0# 

4.921E+0# 

S.267E+0# 

S.H59E+0# 

5.939E+0# 

6.007E+0# 

6.207E+0# 

6.244E+0# 

6.277E+0/ 

6.381E+0# 

6.402E+0# 

6.419E+0# 

1.822E  01.-1.702E  01.-1.731E  01. 
1.498E  01.-1.440E  01.-1.383E  01# 
1.153E  01.-1.095E  01»-1.038F  01# 
8.U93E  00# -7. J>34E  00#-6.987E  00# 
1.3R3E  01 # -1 . 325E  01.-1.268F  01# 
1.038E  01»-9.Bri0E  00.-9. 227F  On# 
-6.959E  00 » -6, 41 3E  00#-5.fi87E  00# 
-4.145E  00.-3.029E  00.-3.562E  00# 
-1.047E  01 • -9.892E  00.-9.317E  00/ 


-7.034E  00.-6.474E  00.-5.926E  On# 
-4.006E  00t-3.641E  00  -3.329E  00# 
-2.475E  00.-2.331E  00.-2. 209E  00# 
-8.041E  00# -7 .468E  00.-6.899E  00# 
-4.713E  00.-4, 21|6E  00.-3. 764E  00# 
'2.466E  00»-2.2b6E  00#-2.0?9E  00# 
1.591E  00# -1 , S06E  00.-l.432E  00# 
1.209E  00#-5.7b9E  00»-b.l99E  00# 
3.202E  00»-2.808E  00»-2.469E  00/ 


1- 2.179E  U0.-1.939E  0U.-1.739E  00.-1.572E  00#' 

2- 1.207E  00#-l.llbE  00 » -1 , 042E  00.-9, 745E-01 » • 

3- 8. 163E-01 # -7. 744E-U1 # -7. 366E-01 # -7. 024E-01 #  • 

4- 3.b23E  00.-3.040E  U0.-2.608E  00.-2.229E  00#- 

5- 1.409E  0C.-1.223E  00»-1.069E  00 # -9, 409E-01 » ■ 

6- 6.bUlE-01 » -5.921E-01 »-5.329E-01 » -4. 810E-01 #  ■ 

7- 3.b83E-01 .-3.257E-01 #-2.964E-01#-2.698E'  01>- 

8- 2.7b9E  00.-2.303E  00»-1.903E  00.-1.561E  00»* 

9- 8.412E“01 »-6.819E-01 . -b.506E“01 » -4 .415E-C1 #  • 
COMMON/EST/tILN  4(b4) 

DATA  EILN  4/ 


■1.431E  00. • 
■9, 154E-01 #  • 
•6.714E-01#- 
1.906E  00#- 
8.327E-01#- 
4, 352E-01 #■ 
2.4b6E-01#- 
1.275E  00#- 
3.b0lE-01#- 


•1.309E  00# 
■8.630E-01# 
•4.035E  00# 
'1.633E  00# 
7.390E-01# 
3.946E-01# 
2.235E-01# 
l.C3bE  00# 
2.727E-01/ 


1-2. 067E-01 #-l .484E-U1 » -9.905E-02# 

2  4.563E-02#  7.246E-02#  9.660E-02. 

3  1 . 729E-01 #-l .804E  00.-1.411E  00# 
4-3. 91SE-01 .-2.424E-01 #-l .206E-01 » 
5  1.925E-01#  2.432E-01#  2.87UE-01# 
b  4.136E-01#  4.368E-01#  4.576E-01# 
7  b.229E-0l #  b.3b8E-01#-1.070E  00# 
8-2.3bbE-02#  1.26bE-Ul#  2.481E-01# 
9  5.b29E-01#  6.010E-01#  6.420E-01# 

COMMON/EST/EILN  5(b4) 

DATA  EILN  b/ 


-5.b91E-02#-l,794E-02#  1.568E-02# 
1. 184E-01 #  1 • 383E-01 »  1.564E-01# 
-1.078E  00#-8. 024E-01.-5.749E-01# 
-2 • 026E-02#  6.316E-02#  1.332E-01# 
3.250E-01 #  3.S83E-01#  3.87bE-01» 
4.764E-01#  4.934E-01#  5.08BE-01# 
-7. 269E-01 # -4,430E"01 »-2. 121E-01 # 
3.471E-01#  4.286E-01#  4.962E-01# 
6.774E-01#  7 , 082E-01 »  7.351E-01/ 


1  7,b88E-0l#  7.799E-01# 

2  8 • 668E-01 »  8.682E-01# 

3  2.742E-01#  4.3b9E-01# 

4  8.632E-01#  9.314E-U1# 

5  1-ObbE  UO#  l.lObE  00# 

6  1.177E  00#  1.187E  00# 


7.986E-01 #  H.154E-01#  8.306E-01#  8.443E-01# 
8#  786E-01  •  -4. 863E-01  #-l .  7B8f.-01 »  7.220E-02# 
5.668E-01 #  6.712E-01#  7.56r£-01»  8.256E-01# 
9, 722E-01 #  1.006E  00#  1.037E  00#  1.063E  00# 
1.123E  00#  1.139E  00#  1.153E  00#  l.lbbE  00# 
1.197E  00#  1.206E  00.-6.935E-03#  2.768F-01# 
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7 

S.U63E-U1* 

6.901E-U1* 

B.367E-01* 

8 

1.1B6E  UO* 

1.238E  UU» 

1.280E  00' 

9 

1.39SE  00* 

1 ,41 JE  UO' 

1.429E  00' 

COMMON/LST/EILN  6<b4> 

UATA  EILN 

6/ 

1 

1.479E  00' 

1.48BE  UU' 

1.497E  00* 

2 

6.b4bE-Ul* 

U.BU2E-U1' 

1.053E  00' 

3 

1.4b3E  00' 

l.bUCE  00' 

1.550E  00' 

4 

1'bbBE  UO' 

1.6BBC.  UU' 

l«70bE  00' 

b 

1  >7bOE  00' 

1.770c  UO* 

I.779E  OU* 

6 

7.4191-Ul' 

9.97oE-Ul* 

1.2U4E  00' 

7 

l.b84t  U0» 

1.740E  UU' 

I.8U1E  00' 

8 

1.939E  UO' 

1 • 9b2E  UU' 

1.9B2E  00' 

9 

2 « U42E  UO' 

2.Ub3E  UU> 

2.063E  OU' 

COMMON/EST/EILN  7(b4) 

DATA  EILN 

7/ 

1 

2.U9bE  00' 

1.U37E  UU' 

1.282E  00' 

2 

1.904E  UO' 

1.96bE  UU' 

2.048E  00' 

3 

2.209E  UO' 

2.23 5E  UU' 

2.2S8E  00' 

4 

2.323E  00' 

2.33SE  UU' 

2.34bE  00' 

5 

2.38IE  00' 

2.387E  UU' 

1.2BBE  00* 

6 

2.106E  00' 

2.207E  UO' 

2.286E  00' 

7 

2.477E  00» 

2.b06E  UO' 

2.532E  00* 

8 

2>b04E  0)' 

2  .61 7E  UO' 

2.629E  00* 

9 

2'bbbE  UO' 

2«b73E  UU' 

2.68UE  00' 

COMMON/EST/EILN  8(47) 

DATA  EILN 

8/ 

1 

2'2B1E  UO' 

2.412E  0U» 

2.512E  00' 

2 

2.741E  UO' 

2.774E  UO* 

2.803E  00* 

3 

2.U86E  UO' 

2.901E  UU' 

2.914E  00* 

4 

2.9b3E  UO' 

2.9blE  OU* 

2.96BE  00' 

5 

2.4I9E  UO' 

2«b91E  OU' 

2.718E  00* 

b 

3'008E  00' 

3.U49E  UU* 

3.082E  00' 

7 

3.172E  00' 

3.18BE  UO' 

3.202E  00' 

8 

3.243E  UO' 

3.251E  UU' 

3.25BE  OC* 

COMMON/EST/EILN  9(29) 

DATA  EILN 

9/ 

5 

2.1.aOE+U* 

2.501E+0* 

6 

3.136E+0* 

3.211E+U ' 

3.270E+0* 

7 

3.412E+0. 

3.435E+U* 

3.4b5E+0* 

8 

3.511E+0* 

3.522E+0* 

3.530E+0* 

9 

3.559E+0* 

3.565E+0* 

2.504E+0* 

COMMON/EST/E ILN1 0 ( 54 ) 

DATA  EILN10/ 

1 

3,3b6t+0f 

3.447E+0* 

3.519E+0* 

2 

3.683E+0* 

3.707E+0* 

3.72BE+0* 

3 

3 . 788E+0  * 

3.799E+U* 

3.808E+0' 

4 

3.B39E+0* 

3.B46E+0* 

3.S51E+0* 

b 

3.547E+0* 

3.662E+U* 

3.744E+0* 

6 

3.935E+0* 

3.9b5E+0* 

3.989E+0* 

7 

4 .060E+0  * 

4.072E+U* 

4.083E+0* 

8 

4.11BE+0* 

4.125E+0* 

4.131E+0* 

9 

3.693E+0* 

3.B36E+0. 

3.945E+0* 

COMMON/EST/E ILN1 1 ( 54 ) 

DATA  EILN11/ 

1 

4.188E+0* 

4.222E+U  * 

4 .251 E+0* 

2 

4.331E+0* 

4.345E+U  * 

4.357E+0* 

3 

4.396E+0* 

4.403E+0* 

4.41UE+0* 

4 

3.783E+0* 

3.980E+0* 

4. 125E  +  0 ' 

S 

4.429E+0* 

4.471E+0' 

4.506E+0* 

6 

4 , 600E+0 * 

4.616E+U* 

4 .630E+0 * 

7 

4.674E+0* 

4.682E+J* 

4 .6901+0  * 

a 

3.B04E+0* 

4.078E+0* 

4.274E+0 • 

9 

4.667E+0* 

4.718E+U* 

4.759E+0* 

C0MM0N/EST/EILN12(b4) 


9.538E-01* 

1.048E 

00' 

1.123E 

00' 

1.317E 

00' 

1.347E 

00* 

1.374E 

00' 

1.444E 

00* 

1.4S7E 

00' 

1.469E 

00/ 

1 » 505E 

00' 

1.512E 

UO' 

3.972E-U1* 

I.190E 

00' 

1.300E 

00* 

1 . 388E 

00' 

1.5871 

00' 

1.617E 

00' 

1.6441 

00' 

1.7221 

00' 

1.736E 

00* 

1.748E 

00' 

1.78CE 

00* 

1.796E 

00* 

1.8031 

00' 

1.369E 

00' 

l.bUOE 

00' 

1.603E 

00' 

1.845E 

00* 

1.8B2E 

00' 

1.9131 

00* 

2.000E 

00' 

2.U15E 

00* 

2.029E 

00' 

2 . U72E 

00' 

2. OBOE 

00' 

2.0881 

00/ 

1.493E 

00* 

1.66BE 

00' 

1.801E 

00' 

2.100E 

00' 

2.143E 

00' 

2.1791 

00' 

2.277E 

00' 

2.295E 

00* 

2.31UE 

00' 

2.356E 

00  * 

2.365E 

00' 

2.373E 

00' 

1.S62E 

00' 

1 . 797E 

00' 

1.9721 

00' 

2.349E 

00' 

2.400E 

00' 

2.442E 

00' 

2.554E 

00' 

2.573E 

dO' 

2.5891 

00' 

2.640E 

00' 

2.649E 

00* 

2.6581 

00' 

1.619E 

00' 

1.870E 

00* 

2.106E 

00/ 

2.589E 

00* 

2.650E 

00 

2 .7001 

00' 

2.8281 

00* 

2.8501 

00 

2.869E 

00' 

2.926E 

00' 

2.936E 

00 

2.944E 

00' 

2.974E 

00* 

2.029E 

00 

2.183E 

00' 

2.815E 

00' 

2.p95£ 

00 

2.95BE 

00' 

3.110E 

00* 

3.134E 

00 

3.1541 

00' 

3.214E 

00* 

3.225E 

00 

3.234E 

00' 

3.265E  00' 

3.271E  00/ 

2.732E+0. 

2*906f+0. 

3.038E+0* 

3.316E+0* 

3.354E+0. 

3.3B6E+0* 

3.472E+0* 

3.487E+0. 

3.500E+0* 

3.539E+0* 

3.546E+0* 

3.553E+0* 

2.820E+0* 

3.061E+0. 

3.232E+0/ 

3.575E+U* 

3.620E+0. 

3.654E+0' 

3.746E+0* 

3.762E+0. 

3.775E+0* 

3.817E+0* 

3.826E+0* 

3.833E+0* 

2.B29E+0' 

3.157E+0. 

3.385E+0'' 

3.B07E+0* 

3.85BE+0* 

3.900E+0* 

4.011E+0* 

4.029E+0* 

4.045E+0* 

4.093E+0' 

4.103E+0* 

4.111E+0* 

4.137E+0' 

3.171E+0* 

3.482E+0* 

4.027E+0* 

4.093E+0* 

4, J45E+0/ 

4.275E+0* 

4.296E+0* 

4.315E+0* 

4.3691+0* 

4.279E+0' 

4.388E+0* 

4.417E+0' 

4.422E+0* 

3.500E+0* 

4.233E+0* 

4. 314E+0 ' 

4.378E+0* 

4.535E+0* 

4.560E+0* 

4.581E+0* 

4.643E+0* 

4.655E+0* 

4.665E+0* 

4.697E+0* 

4.703E+0' 

4.709E+0  * 

4.415E+0' 

4.521E+0 ' 

4.602E+0* 

4.794E+0* 

4.823E+0* 

4.848E+0/ 
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DATA  EILN12/ 


4.870L+0# 

4.8U8E+U» 

4.905E+0# 

4.919E+0# 

4.932E+0* 

4.943E+0» 

!  4.953E+0# 

4«9b2E+0» 

4.971E+0# 

4.978E+0* 

4s985E+0» 

4.992E+0» 

1  4.997E+0: 

4.1U&E+0* 

4.37bE+0, 

4.567E4'0» 

4.709E+0» 

4.814E+0» 

'  4.895E+0# 

4.9b9E'f  0» 

b.010E+0t 

b.OSZE+O* 

5.0B6E+0» 

5.:09E+0» 

i  5.127E+0' 

5.143E->0» 

5.1tBE+0» 

5.171E+0* 

5.1B3E+0* 

5.194E+C» 

>  5.204E+0# 

5.214EH)» 

5.222E+0V 

5.230E+0» 

5.238E+0r 

5.245E+0> 

’  b.251E+0» 

5.257F.+0# 

4.4UE+0. 

4.678E+0» 

4.B69E+0. 

5.007E+0* 

1  b.lUbE+Or 

b.lb7£+U» 

b.202E+0r 

b.242E+0» 

5.277E+0* 

5.308E+0* 

1  5.335E+0» 

b.359E+0» 

5.ri80E+0» 

5.399E+0. 

5.41&E+0r 

5.432E+0/ 

C0MM0N/EST/EILN13I  9) 

DATA  EILN13/ 

5 .446E+0 » 

5.4b8E+0» 

b.470E+0» 

b.481E+0» 

5.490E+0' 

5.499E+0. 

b.b07E+0r 

b.515E+U# 

5.522E+0/ 

IFIE.NE.U.) 

GO  TO  5 

THA  =  l.E-3 
ZBAR=0. 

GO  TO  9b0 
5  CONTINUE 

ALGT=ALOG10(TAUJ 

ALGE=ALOG10<E) 

DLGTSALGT-TAULZ 

ULGE=ALGE-ELZ 

AN=DLGT*S+1. 

AM=DLGE*m. 

IF  (ULGT.LT.U.)  AN=0. 
IFIDLGE.LT.O.)  am=o. 
N-IFIX(AN) 

MSIFIX ( AM) 

IN-0 

EO-E 


IF(N.UE.O)  GO  TO  10 
IF(N.GE.NN)  GO  TO  20 
IF(M.LE.U)  GO  TO  800 
IF(M.GE.MM)  GO  TO  4U0 
8  CONTINUE 

DNLT=A(’-AINT(AN)  1 

UMLE=AM-AINT(AM) 

ZBAH=Zb(N»M)+(Za(N+l.M)-ZB(N.M) )*  DNLT 

1  ♦  ( Z  t)  ( N » M+ 1 )  "ZB  ( N » M )  )  *  OMLE 

2  + ( ZU (N+l r M+l ) +ZB ( N » M) "Zu ( N+l » M) -ZR ( N  *  M+l ) ) 

3  *(DNLT*QMLE) 

ALIN=EILN(N»M) + (EtLN(N+1 »M)-EILN(N»M) ) *DNET 

1  +(EILN(N»M+1)-EILN(N»M) ) *DMLE 

3  *(DNLT*UMLE) 

2  ♦(EILN(N+1»M+1)+EILN(N*M)-EILN(N+1»M) -EILN(N»M+1) ) 

THA- 5  EO/PHI-EXP ( AL I N) ) / ( 1 . 5* ( 1 . +ZBAR  ) ) 

IF(IN.NE.O)GO  TO  <150'25Qf 350»450>550»650»750»850) »IN 


10 

20 

100 

15G 

200 

250 

300 


GO  TO  950 

IF(M.LE.O)  GO  TO  100 
IFIM.GE.MM)  GO  TO  300 
GO  TO  200 

IF(M.LE.O)  GO  TO  700 
IFIM.GE.MM)  GO  TO  500 
GO  TO  600 
CONTINUE 

IF(U.EQ.l)  GO  TO  9901 

CONTINUE 

RETURN 

CONTINUE 

IF( I2.EU.1)  GO  TO  9902 

CONTINUE 

RETURN 

CONTINUE 

IFU3.EQ.1)  GO  TO  9903 
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350  CONTINUE 
HE TURN 

400  CONTINUE 

IF(I4,E0.1)  GO  TO  9904 
450  CONTINUE 
RETURN 

500  CONTINUE 

IFUbtEU.l)  GO  To  9905 
550  CONTINUE 
RETURN 
60C  CONTINUE 

IFU6.EQ.1)  GO  TO  9906 
650  CONTINUE 
RETURN 
TOO  CONTINUE 

IF  ( I7.EU. 1 )  GO  TO  9907 

IN  =  7 

M=1 

N  s  NN 

EO=EZ 

00  TO  8 

750  THAP  =  E  *  THA  /  EZ 

/(THA*THAP*a!))THAP/THA,**’7b  *  S0«T‘T*UM/TAU)*EXP(V1*ITHAP-THA)  / 
AIN=V1*ZBAR 
60  TO  900 
800  CONTINUE 

IF( la.EG. 1)  GO  TO  9908 
IN  s  8 

MSI 

EOSEZ  j 

60  TO  8 

850  THAP  s  t  *  THA  /  EZ  '! 

if  THA  *  THAP*2 , )  J^A**/T^A  ^  •  75  *  EXP(V1*(  THAP  -  THA)  / 

AIN=V1*ZBAK 

900  CONTINUE  ; 

THA= (E/PHI-AIN) / (i .5* U ,+ZBAR ) ) 

950  P=PHI + ( 1 . +ZB AR  )*THA/TAU 

RETURN 

9901  51=12.0100 
60  TO  9999 

9902  51=12.0200 
GO  TO  9999 

9903  S1=12.03U0 
GO  TO  9999 

9904  Sl=*2.0400 
60  TO  9999 

9905  51=12.0500 
60  TO  9999 

9906  S1S12.0600 
60  TO  9999 

9907  S1=12.07U0 
60  TO  9999 

9908  51=12.0800 

9999  WHITE (6 t 1000) TAU* Ei THAi P»ZBAR»G6* ALGT 

1000  FORMAT ( 1H1 t 12X'6HTAU  *9X»6HE  *9X*6HTHA 

1UAR  *9Xi6H66  *9X»6HALGT  /7X» 1P7E15.7) 

WR I TE ( 6 » 1 0 0 1 ) AE6E * 0U6T » 0E6E *  AN » AM 

1001  FORMAT (1H0»12X>6HAL6E  *9X»6HDLGT  »9X*6MDLGE 
1M  /7X.1P5E15.7) 

WR I TE  ( 6*  1002 )  Nr  M»  NN»  MM»  SI 

1002  FORMAT (1H0.12X.6HN  .9X.6HM  .9X.6HNN 

11  Z7X* 19>3 (6Xr 19) • lPE15t7) 

CALL  EDIT 

END 


» 9X » 6HP 

*  9X » 6HZ 

*  9X»  6HAN 

»9X»6HA 

»9X»6HMM 

•9X.6HS 
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SECTION  V 

EQUATION  OF  STATE  FOR  MOLECULAR  CAR  ROM 
5.  1.  INTRODUCTION 

In  the  theoretical  analysis  of  certain  experimental  systems,  it  is 
convenient  to  treat  the  vapor  phase  of  a  graphite -carbon  vapor  system  as 
though  it  were  in  local  thermodynamic  equilibrium.  It  is  then  possible  to 
calculate  the  equilibrium  composition  of  the  vapor.  In  this  section  a 
FORTRAN  subroutine,  CMOL,  is  described  which,  given  the  local  tem¬ 
perature  and  specific  volume,  will  calculate  the  composition  and  thermo¬ 
dynamic  properties  of  molecular  carbon  vapor. 

Two  gross  assumptions  must  first  be  stated:  (1)  it  is  assumed  that 
only  the  species  C^  C^  ....  C^  are  present,  and  (2)  the  perfect  gas 
law  is  assumed  at  several  places.  In  addition  to  these  assumptions,  an 
extrapolation  past  the  known  data  to  the  limiting  high -temperature  values 
of  monatomic  carbon  vapor  permits  the  user  to  bridge,  in  a  physically 
consistent  manner,  the  region  where  the  free  energies  of  the  system  have 
not  yet  been  determined. 

Finally,  the  systems  of  interest  are  metastable  in  that  the  carbon 
vapor  formed  is  not  expected  to  condense  to  graphite  within  the  time 
period  under  study.  Thus,  the  routine  permits  the  calculation  of  the  sys¬ 
tem  composition  under  the  assumption  that  only  vapor  is  present. 

5.  2.  SYMBOLS 

Ao-,j  j  coefficient  in  the  least-square  fit  to  the  enthalpy  and 
free  energy  of  species  a  , 

a 

aa  A  coefficient  in  f({  );  see  Eq.  (122e) 


,  a _ __ 


_ _ 
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C. 

J 


sp 


E 


a 


G°(0  ) 
a 


G°(T) 

a 


a 


AG 

a 


H“(0, 

H“(T) 


H 

K 


K“ 

P 


M 


M 

( 

N 


a 


a 

n 

P 

P 

a 


Molecule  in  carbon  vapor  containing  j  atoms  of  carbon, 
Specific  internal  energy  in  calories /gram, 

Internal  energy  per  mole  of  species  a  in  calories /mole. 
See  Eq.  ( I22e), 

Gibbs  free  energy  of  species  a  at  0°K, 

Gibbs  free  energy  of  species  a  at  T°K, 


G  =  G“(T), 
a  a 


Change  in  free  energy  due  to  reaction,  for  the  reaction 

aC.-C  :  AG°  =  G  -  aG., 

1  a  a  a  1 


Enthalpy  of  species  a  O'K, 

Enthalpy  of  species  a  at  T  °K, 

V 

Equilibrium  constant,  i.  t.  o.  concentrations,  for  the 

reaction  arC.~  C  :  K**  =  (RTf*  *  K?*;  K  =  K  (T,£  ), 
i  a  c  p  c  c  a 

Equilibrium  constant  i.  t.  o.  partial  pressures,  for  the 

a 


reaction  oC .  ~  C  :  Ka  =  exp(-AG  /RT);  K  =  K  (T), 

1  a  P  a  P  P 

Mass  of  the  system;  M  =  2  M  =2  n  M  in  grams, 

’  a  a  a  ft  ot 

Gram-molecular  weight  of  species  a  in  grams /mole, 

Mean  number  of  atoms /molecule;  see  Eq.  f'140a). 

Number  of  moles  of  species  &  , 

n  =  2  n  ,  the  total  number  of  moles, 

a  a  2 

P  =  2aI^  =  RT  system  pressure  in  dynes /cm  , 

Pressure  of  component  a  , 
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R  Gas  constant.  The  units  of  R  are  consistent  with  the 

other  factors  in  the  equation  in  which  it  appears;  for 
example,  in  Eqs.  (120),  (132),  etc.  ,  R  =  1.  9876 
calorie/mole- *K;  in  Eqs.  (114),  etc. ,  R  =  8.  3143  x  10^ 
erg/mole-  ®K, 

T  Temperature  in  °K, 

3 

V  Total  system  volume  in  cm  , 

oi  Molecular  species  index:  1  ^  a  —  10, 

3 

P  Mass  density  in  g/cm  ;  P  =  M/V  =  l/r  , 

t  Specific  volume  in  cm/g;  T  =  V/M  =  l/P, 

0  Temperature  in  ev, 

3 

ia  =  i^V,  the  number  density  in  moles /cm  of  species  a 


5.  3.  THE  SYSTEM  COMPOSITION 


The  equilibria  assumed  can  be  written  as 


“  C1  Ca  *  «  =  2,  3,  ....  10 


and  they  lead  to 


a  a 
=  K  (T) 


<pi> 


a  P 


Or,  assuming  that 


P  V  =  n  RT 
a  a 


n 


P  =  -—  RT  =  £  RT 

a  V  a 


where  £  =  n  /V,  we  obtain 

a  a 


ia  =  (RTf"1  ttjf  K®(T) 


(112 


(113 


(114 
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where 


Kp  =  exp  (-AG^/RT) 


‘exp([“  Gx-°a|/RT) 


(116) 


and  Ga  is  the  Gibbs  free  energy  of  species  a : 


G  G°(T) 
_ a  _  a' 

RT  RT 


(117) 


These  free  energy  functions,  and  others,  appear  in  a  paper  by  Duff  and 

Bauer  (Ref.  1)  in  the  form  of  a  least- square  fit  to  the  data  over  two  over¬ 
lapping  ranges  and  are  written  as 


G°(T) 


RT  =Aot,  i  d  •  ^  T)  -  (A^j  T-'J/j)  -  5  +  H°  (oj/RT  (118) 


This  fit  simultaneously  gives  the  enthalpy  of  species  a  as 


H  H°(T)  (  .  A  \ 

*>■*)♦  H»a(0VM 


(119) 


and  thus  satisfies  the  thermodynamic  consistency  relation: 


/dCa/RT\ 

\zr~)=  {VRT> 


(120) 


We  thus  have  9  equations  in  the  10  species.  The  final  equation  needed 
given  by  the  mass  conservation  relation: 


(121) 


It  should  be  noted  that  the  thermodynamic  function  table  titles  are  in¬ 


verted  in  this  reference;  i.  e.  ,  the  table  titled  "from  300°  K- 1500°  K 


actually  is  the  table  for  15008  K-6000*  K,  and  vice  versa. 


.•/•••••  ...  ,, 


**•  *  .. 


t  r  -  , . 
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which  transforms  to 


P-%-Z  % 

M° 

(122a) 

V  a  V 

a 

=  2  4 

M° 

(122b) 

a  a 

a 

-Sa  {c 

(12a) 

(122c) 

10  -AG.  /RT 

ttS1  «e  “  (RT  -p/12 

(i22d) 

which  we  immediately  recognize  as  a  tenth -order  polynomial  in  4  ,  the 

J  * 

number  density,  in  moles /cm  ,  of  carbon  atoms.  For  convenience  we 
assume  the  standard  polynomial  form: 

<122e) 

We  note  that,  by  definition  of  the  variables  £  , 

a 

0<£1<p/l  2  (123a) 


For  these  limiting  values  of  the  argument,  the  polynomial  assumes  the 
value  s 

f(0)  =  -p/  12  (123b) 

and 


f(p/  12)  >  0  .  (123c) 

Further,  Descartes'  rule  of  signs  permits,  at  most,  one  real  root.  Since 
there  is  at  least  one  real  root,  this  root  must  be  unique.  We  thus  have  all 
the  information  needed  to  find  the  root. 

Because  of  limitations  imposed  by  the  permissible  exponent  range 
inherent  in  most  computer  systems,  Eq.  (122e)  was  rewritten  as 


0 


a=10 
a  =0 


i 

a 

a 


x“ 


(124a) 


AFWL-  TR-66  - 1 08,  Vol  II 


r  *  l ft- ?  ./Iff  4 

■aMESH  3B5WH  - _ _ _ 


p 


% 


where 

c 


X  = 


G  /RT 
e  RT 


-Ca/RTI 

aa  =  a  e  /RT  ;  1-a 


^  10 


a0  =  -P/12  =  a0 


{124b) 

(124c) 

<l24d) 


The  bounds  on  X  are  stated  immediately  in  terms  of  those  previously 
stated  for  in  Eq.  (123a): 

0  <  X  <  -a^a'j  (I24e) 

A  series  of  numerical  experiments  was  performed  to  establish  the 
most  efficient  manner  of  solving  for  this  root.  The  techniques  considered 
were: 

(a)  Interval  halving, 

,  ,  .  (b)  regula  falsi  (the  n  iterate  is  the  inverse  linear 

interpolate  between  iterates  n-1  and  n-2), 

(c)  Newton-Raphson, 

(d)  The  analogue  of  Newton-Raphson  which  uses  the  first  and 
second  derivatives. 

Numerical  experiments  showed  that  the  expected  gain  in  the  rate  of  con¬ 
vergence  with  the  higher  order  methods  (c  and  d)  did  not  occur  over  much 
of  the  (T,  p)  domain  of  interest.  This  would  clearly  not  be  true  if  an  initial 
estimate  sufficiently  close  to  the  final  iterate  could  be  found.  However, 
the  estimates  which  were  used  were  not  always  within  this  desirable 
domain: 
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1.  IfZ1-=(-a,l0)/a;.l,X<Z1. 

2.  If  Zj  >  1,  and  a*  4  0  where  j  =  9,  8,  7,  . . . ,  1 

J 

a  i  0  for  j  =  9,  8,  7,  -  ..,2),  Z,  =  14  l-a'/a.!1^ 

J  2  I  o  j  J 

and  X  <  Z  . 

u 

3.  If  Z  <  2,  Z  =  Z  -  1  and  X  <  Z. 

m  j  ^  3 

Thus,  techniques  (c)  and  (d)  were  often  useless. 

For  a  tenth  order  polynomial  with  the  constant  term  as  the  only 
negative  coefficient,  an  upper  bound  on  the  root  is 


x<1+Kl/aiol 


1/10 


However,  numerical  experiments  have  shown  that  the  bound  Z  given 
above  is  better;  this  is  easily  understood  when  one  examines  the 
behavior  of  the  functions  |(Gq/RT)!  1^  a  £  loj ,  for  £  always  dominates 

*  10- 

Technique  (c)  requires  almost  twice  as  much  computation  as  techni¬ 
ques  (a)  and  (b),  and  technique  <d)  requires  almost  -three  times  as  much 
computation.  Thus,  if  second  or  third  order  convergence  is  not  rapidly 
achieved,  one  is  much  better  off  with  the  lower  order  methods. 

For  this  reason,  a  careful  study  of  the  best  way  to  use  techniques  (a)  and 
(b)  was  performed. 

Regula  falsi  and  interval  halving  both  require  computation  of  f(X^n^) 

where  X^  ^  is  the  n  iterate.  In  addition,  interval  halving  requires 

comparison  of  f{X^n^)  with  the  upper  and  lower  bounds  determined  at  the 

(n-1)  iteration  stage.  If  f(X^  >  0,  X^  ^  replaces  the  previous  upper 

bound.  If  f(X*  <  0,  X^  ^  replaces  the  previous  lower  bound.  If 

(n) 

I  f(X  )l  <e  ,  we  are  sufficiently  close  to  the  desired  answer  and  can  use 
X  as  our  final  iterate.  This  process  is  clearly  convergent;  approximately 
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tliree  iterations  are  required  to  reduce  the  error  by  a  factor  of  10.  Regula 
j^lsj^will  permit  a  much  faster  asymptotic  convergence  rate;  however,  the 
initial  rate  of  convergence  may  be  much  slower.  Therefore,  interval 
halving  is  used  until  the  criterion 


I  2 


»  =  10 
a- 1 


4  |x(k)]°'l  <  +  0.1  (P / 12/ 


(125) 


is  met;  from  this  iteration  stage  on,  regula  falsi  is  used  until  i  f(X^)  I  <6. 
However,  if  reg;ula  falsi  predicts  a  new  iterate  outside  the  current  upper 
and  lower  bounds,  interval  halving  is  used  at  that  if  tration  stage.  The 
upper  and  lower  bounds  are  updated  at  every  Mention  stage.  Twenty-five 
iterations  are  allowed;  if  the  accuracy  test  is  not  satisfied,  the  cell 
CARBNZ  (8)  is  set  to  97.  0297  and  a  return  is  made  to  the  calling  program. 

When  X  has  been  determined  to  the  desired  accuracy,  the  £  ,  a=  1, 

. ..,  10  are  computed  using  Eqs,  (115)  and  (116). 

5.  4.  THERMODYNAMIC  VARTA'RT.T^S 


The  thermodynamic  variables  computed  are! 


P  =  RT  2a  ta 


(126) 


(fr)r  = RT  sa(jr)T 

E  =  r  2  E  4  =  2  E  {  / /l2N  2  l  \ 

sp  a  a  a  a  ff'u  |  a*  a/ 


(127) 

(128) 
(129) 


H7 


AFWL-TR-66-108,  Vol  II 


dE 

a 

dT 


where 


0-1)  a 


H°  (0) 
a  '  ' 

RT 


so 


-  (P2/ 12)  k.lZ  a1  | 
la  a 


N  =  2  a 4  / S  4 

a  a  a  a 


(131) 

(132) 

(133) 

(134) 

(135) 

(136) 

(137) 

(138) 

(139) 
(MOa) 
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4“(‘TSL\r/2  *  1  +[(t^)t  1Z)/<S  k 

\  8  Tf T  \  dT  /T  Qf  a  1  I  \  8  r/T  a  a 

(si-KftV'.J-P 


t  y 


(140b) 


(140c) 


5.  F.  THERMODYNAMICS  AND  COMPOSITIONS  ABOVE  7000°  K 

Reliable  data  for  the  free  energies  and  enthalpies  for  the  species  CQ, 
2  s  a  ^  10,  have  not  yet  been  calculated  above7000°  K.  However,  at  all 
densities  of  interest  the  system  composition  can  be  calculated  at  7000°  K. . 
Further,  we  know  that,  at  all  densities  of  interest,  at  a  sufficiently  high 
temperature  there  will  only  be  carbon  atoms  present.  In  order  to  bridge 
this  gap,  the  following  equations  are  assumed  (in  which  we  denote  all 
quantities  relevant  to  the  point  (r,  Tq  s700CfK)  with  tfc.tr  subscript  'V  antf* 
all  quantities  at  the  upper  limiting  value  with  the  subscript  "u"): 


N  =  N  +  (T  -  T 


/8n\ 

J  o  1 

A*r)r 


(a  -ffli 


H  *  1 

u 


T  =  T 
u  o 


■ 


8io\ 

8T  Jr 


(141) 

(142) 

(143) 

(144) 


Thus,  since  T  and  N  are  constants, 
o  u 


<0Tu/aT)T  =  -(^)r/(aS,o/8T,T 


E  =  (N)’1  N  E  +  (T  -  T)(T  -  T  )" 1 
1  0  0  0  u  o 


(145) 


(146) 


(N  E 
o  o 


E  ) 
u 


E  =  E.(T  ) 
u  1  u 


(147) 
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■  l[-E(i)r-<Tu-To>'1(RoEo 

Eo  +  f5o 

'  o 


(148) 

i-  1 

(149) 


To  be  consistent 
we  assume  that 


with  the  technique  used  above  7000°  K,  if  T  >  T 


9 

u 


(8E 


=  P/12 

(150) 

(151) 

N  =  1 

(152) 

P  =  RT(P  / 12) 

(153) 

E  =  E  / 12 

(154) 

sp  1 

dE 

TTn‘ 

(155) 

(S-" 

(156) 

II 

t 

(157) 
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5.  6.  LOW  TEMPERATURE  RESULTS 

,  -  •  p1. 

Preliminary  numerical  calculations  indicated  that  for  T  <  1000°  K,  it 
is  satisfactory  to  assume  that 

*9=P/ 108  (158) 


N  =  9  (159) 


*a*9  "  ° 

(160) 

M  =  p/t 

[dT/T  ^/T 

(161) 

'dE  \  dE./dT 

— ,?E)  =  9 

^  8T  /r  108 

(162) 

(&  -  -  ^ 

(163) 

p  .  RJL 

I08r 

(164) 

E  =  Ea/ 108 
sp  9 

(165) 

/at  \  /at  \  /be  \ 

( _ 2  J  -  (  Q  j  (  sp  j 

\  dr/T  \  ar  Jt  -  \  dr  /r  “  0 

(166) 

5.  7.  COEFFICIENTS  OF  FITS  TO  THERMODYNAMIC  FUNCTIONS 


Table  IV  contains  the  A^  . 

^  J 


a 


=  1 


•  •  • 


10  ,  j  =  1 


. .  6  used  to  fit 


(1  -  In  T)  -  A  T 
ot,2 


N 


T3  T4 

a,  4  3  a,  5  4 


a,  6 


(lb7) 
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and 


/h°(T)  -  H°(0)\ 

\  RT  /« 


Aa,  1+A»,  2T+A»,3 


”2+A 


■  4T3+A 

a, 4  a, 


(168) 


(The  above  equations  are  the  same  as  Eqs.  (118)  and  (119),  respectively.  ) 

5.  8.  INTERFACE  OF  CMOL  WITH  OTHER  EQUATION  OF  STATE 

SUBROUTINES 


In  the  SPUTTER  code,  the  generalized  ionic  equation  of  state  sub- 

sis 

routines  "EIONX"  are  designed  to  interface  with  molecular  equations  of 
state  in  the  following  manner: 


1.  All  ionization  contributions  are  calculated  by  the  EIONX  routine 

2.  All  translation  contributions  are  calculated  by  the  EIONX 
routine.  If  a  molecular  E.  O.  S.  is  not  called  by  the  EIONX 
routine,  EIONX  sets  51  =  1,  (8R/8  0)  =  0,  and  (9N/9T  ).  =  0, 

T  a 

where  9  is  the  temperature  in  ev  (see  below)  If  a  molecular 
E.  O.  S.  is  called,  these  quantities  are  calculated  by  that  routine 
and  returned  to  EIONX  to  be  used. 

3.  The  reference  state  for  energy  is  assumed  to  contain  only 
atoms. 

The  equations  which  have  been  presented  have  included  the  translational 
contributions,  and  the  temperature  scale  has  been  in  degrees  Kelvin.  The 
code  actually  uses  a  temperature  scale  in  ev  (1  ev  -  11605°K).  The 
translational  contributions  to  E  and  (8E/8  0)T  are  subtracted  before  these 
quantities  are  passed  on  by  CMOL  to  the  EIONX  code.  This  gives 

EEIONX  input  =  ECMOL  Z  RT  C/R  "  Eo  (169) 


9e\ 

9  9}T  )  EIONX  input 


CMOL 


-  C*/N 


(170) 


*  See  Section  III  of  this  report. 
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where  C  and  C1  are  the  appropriate  conversion  factors.  The  correspond 
ing  factor  does  not  have  to  be  subtracted  out  of  P  since  only  N  is  trans¬ 
ferred  to  the  EIONX  code.  The  derivatives  of  P  that  are  calculated  and 
transferred  to  the  EIONX  code  also  exclude  the  translational  contribution 
since  they  are  calculated  as 


(9P\  J*£\  teSW| T\ 

\d0)r  “Urc/r.T  \8tM8°/ 

(171) 

/9p\  /ap\  /m 
[dr/e  =  Vaflfr’,  t  \  8r/r 

(172) 

5.  9.  FUTURE  IMPROVEMENTS 

Several  of  the  assumptions  will  be  replaced  by  a  more  extended 
treatment  as  soon  as  possible: 

1.  A  program  is  under  way  to  (a)  compute  high  temperature 
partition  functions,  and  (b)  fit  the  resultant  fr^r  energies 
and  enthalpies  in  a  thermodynamically  consistent  least- 
square  manner.  As  soon  as  this  is  done,  the  "bridging" 
section  will  be  removed  from  the  code.  This  will  be  done 
initially  for  Cft,  1  —  a  —  10. 

2.  Following  this,  an  attempt  will  be  made  to  estimate  the 

thermodynamic  quantities  for  C^,  11  ^(3  ^  20.  Calcula¬ 
tions  with  the  present  system  show  that  ^9  >:>  ^  9  at 

T  -  1000°  K.  However,  this  is  only  an  artifice  due  to  the 
exclusion  of  >1Q  from  the  calculations.  Inclusion  of 
these  species  is  expected  to  change  the  results  at  low 
temperatures  so  that  N  >9  at  low  temperatures. 

An  attempt  will  be  made  to  add  "real  gas"  correction 
factors  for  the  various  species. 


3. 
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5.  10. 

VARIABLE  NAMES  USED  IN  CMOL 

1. 

A(10) 

i  *•  r  n  t  ?  •  •  *'£"■  •  • 

A  1  js  a=£  10  in  Eq.  (167)  for  T  ^  1750° 

a,  1 

2. 

A2(10) 

A  ;  1  <  a  <  10  in  Eq.  (167);  for  T  <  1750' 

W  f  1 

3. 

B(  10) 

A  ;  1  <a<10inEq.  (167);  for  T  >  1750' 

0?i  Ct 

4. 

B2(10) 

A  ;  1  <a  s  10  in  Eq.  (167);  for  T  <  1750' 

fa 

5. 

BACK1 

Previous  Iterate. 

6. 

C(  10) 

Aft  3;  1  <  a  <  10  in  Eq.  (167);  T  >  1750°  K. 

7. 

€2(10) 

A  1  <  a  <  10  in  Eq.  ( 167);  T  <  1750°  K. 

a,  3 

8. 

CARBNZ(IO) 

Routine  out  put  array;  see  section  5.  9. 

9. 

COEF(ll) 

a1;  1  £Q!  <  11;  see  Eqs.  (124c)  and  (l24d). 
a 

10. 

CONST 

a ^  =  -  P  / 12;  see  Eqs.  ( 122e)  and  ( 124d). 

n. 

D(  10) 

A  ;  1  <  a  <10  in  Eq.  (167);  T  >  1750°  K. 

9  « 

12. 

DZ(10) 

A  1  <  a  <10  in  Eq.  (167);  T  <  1750°  K, 

a,  4 

13. 

DCONDT 

2  (dt  /9r) 
a  a  t 

14. 

DEDT(10) 

dE  /dT  =  R  [a  ,  -  1  +  a  A  .  Tjl  . 

a  l  a,  1  j=2  a,j  J 

15. 

DEDTAU 

(9E  /dT)9t 

16. 

DEDTHT 

{QE/dO  )r . 

17. 

DELH(10) 

H°(0). 

18. 

DNDT 

(af7/8T)r. 

19. 

DNDTAU 

(8fl/8r)T. 

20. 

DPDN 

(8P/8fl)T,  P. 

21. 

DPOTAU 

(8P/8r)8. 

22. 

DPDTHT 

(8P/8  8)r. 
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23. 

DREACT(IO) 

-  a  H°  (T)/RT  -  H°  (T)/RT. 

1  ot 

24. 

DXDT(10) 

(8Sa/8T)r;  1  s  10. 

25. 

DXDTAU(IO) 

(34q/8t)T;  1  <a  s  10. 

26. 

E(10) 

A  1  <  Of  <  10  in  Eq.  {167);  T  <  1750°  K. 

a,b 

27. 

E2(10) 

A  _;  1  <  10  in  Eq.  (167);  T  <  1750°  K. 

a,  5 

28. 

EDIF 

E  5)  -  E,  . 
o  o  1 

29. 

EION(20) 

EIONX  input  -  out  put  array;  see  Section  III  i 

this  report. 

30. 

ENERGY 

Specific  energy  in  ergs/g;  see  Eq.  (129). 

31. 

EO 

E  =  E  (7000°  K,  P  . 
o 

3  2. 

E  ONBAR 

E  N  . 
o  o 

33. 

ESPECZ(IO) 

E°  (T)  =  H°  (T)  -  RT. 

34. 

El  j 

i 

E  (TJ. 

35. 

EZERO 

Assumed  specific  energy  of  atomization  (of 
graphite)  ;  5.  98566  Ell  ergs/g. 

36. 

FK(10) 

A  1  <  as  10  in  Eq.  (167);  T  >  1750° K. 

a,  6  n 

37. 

FK2(10) 

A  1  <  a  <  10  in  Eq.  (167);  T  <  1750°  K. 

Q!,  O 

38. 

FOFX 

See  Eq.  (lie). 

39. 

FOFXM 1 

f  (previous  iterate);  see  Eq.  (122e). 

40. 

FRENRG(IO) 

[g°(T)|  RT;  Is  as  10. 

41. 

HSPECZ(IO) 

H°(T). 

42. 

NBAR 

Mean  number  of  atoms  per  molecule;  seeEq. 

43. 

NBARO 

n  =  n  (7ooo°  k,p  ). 
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r  !  '■  i 


44. 

PRESHR 

45. 

RTKEL 

46. 

R2TKEL 

47. 

SUMCON 

48. 

SUM  NRG 

49. 

SUM  1DX 

50. 

SUM2DX 

51. 

SUM3DX 

52. 

SUM4DX 

53. 

SUM5DX 

54. 

SUM6DX 

55. 

SUM7DX 

56. 

SUM8DX 

57. 

T 

KJl 

00 

• 

TAU 

59. 

TDGDT(IO) 

60. 

TDIF 

61. 

TKEL 

62. 

TKELN 

63. 

TUPM7 

64. 

UPPER T 

65. 

X 

66. 

XSET(10) 

P  ;  see  Eq.  (126). 

RT  with  R  =  1.  98726  cal/mole-0  K. 


ih 


ii 


RT  with  R  =  82.  06  cm  /atm-0  K. 


J 


2  *  . 
a  a 


2  *  E  (T). 
a  a  a 


[“  H°  (T)  +  H°  (T)]|/RT. 


2  o2  S  . 

a  a 


£a  (»{„/«  nT. 

(»V^)T  (e°  (T)j . 

2  <8$ /8T)r  [e°  (T)l. 

tv  a  l  a  J 


2  £  (dE  /dT). 
a  a  a 


2  a(8£  /3T)r. 
a  a 


2„  a(8{a/dT)T  . 

Storage  cell  for  T  in  computations  above  7000°  K, 

3 

Specific  volume  in  cm  /g. 

-[h°  (T)]/RT. 

T  -  7000°  K. 


Temperature  in  0  K. 
In  T. 


T  -  7000°  K. 
u 


t  ;  see  Eq.  (144). 
Gi/RT 

X  =  $  1  e  /RT. 


I  1  —  a  —  10. 


ci  n  no  noonnno 
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5.11.  APPENDIX:  LISTING  OF  CMOL 


i 

NIT  FOR  Mcbf£K/A*IILSrEK/A»UESTER/M 
SUoKOUTINE  CM0LU1.  X2.  X3) 

i-NLKoY  ZERO  l S  ATOMIZED  CARbON  ( EMCKfeY=5. 985bbF J  1  ER&S/G.) 

LAST  COMPILED  UECEMHEK  12.  1965 
XI  IS  TAU  1 14  b/CC 
X2  lb  THuTA  IN  EV 

X3  .LT.  0.  FORCES  TRANSLATIONAL-ONLY  COMPUTATION 
X3  .6T.  0.  FORCES  CU10FF  AT  1500.  DEGREES  KELVIN 

C  OMMON/LMS/E ION (20) 

COMMON  /LMSG/CARbNZUO) 

REAL  NL5AK 
REAL  NbARO 

LGUI VALLNCE (ULUNRG. ElON ( 15 )  ) .  ( M5AR»EI0N(  17)  ) 

U I  Mu  NS  I  ON  AUG)  »b(10>  »C(  10)  .D(  U») »E(10) » FK< 10) »OELH< 10)  .FRENRbU 

1U)  .Ebl'ECZUO)  .XSET(lO)  .COEF(ll) 
tGUI VALENCE (COEFC 11) .CONST) 

DIMENSION  HSPECZ ( 10 )  .  A2 ( 10 ) » 52 ( 1» )  »C2(  10 ) . D2 ( 10 )  .E2U0)  .FK2110) 
DIMENSION  TDbDTUO).DCDT(lO)  .DXDTUO)  .DXDTAUUO)  »DREACT(10> 

DATA  A/2. 61b7394. 4. 6083. 4. 5770171 .6.0773535.7,57738. 9. 0772684. 10. 5 
176120 » ,\2. 07925.  j  j. 57900 7. 15.  07952/ 

DATA  U/-1. 075930 7E-4. -4. 309474 1E-4.1.1354603E-3.1.7218071E-3. 2. 308 
17653t-3»2.695636  3E-8.3.4015191E-3»4.Q66B009E-3.'4.65407l3E-3»5.2402 
2472L-3/ 

DATA  C/3.8oU1044E-U»2.5534049E-7 »-2. U837176E-7.-3. 159954BE“7»-4.?3 
1c)5U44L-7.-S.3160UOOE-/.-6.3904472L-7»“7.4600642E-7,-B.5414254E-7.- 
29 •  t>lb406oE— 7/ 

DATA  D/-4. 506464  oE-l<:» -5. 0 605 5 32E“U . 1.7u96995E— 11 ♦ 2.33692 07E-1 1.2 
1.9o91251E-11.3.6032b75E-U. 4.2223928£-11.4.837)722E-li.5.4737lllF- 
211.O.U902072L-U/ 

DATA  L/l.U25o099E-ifa.3.4887751E-l5.-4.957819bE-l6.-3.5P33503E“lbf- 
12  •  24 72492E-16. -9. 25bb753E— 17.5. 1094666E-17. 1.93U5455E— 16. 3*2832721 
2E-16.4. b77o93E-lo/ 

UATA  F*/4. 1144. -1. 0514979*-. 99026691. -5. 8B35212. -14. 367287.-19.262 
1383. -27 . 74 ol 15 .-32.6471 87. -41. 125658.-46. 023767/ 

DATA  DELi l/l.u956£5» 1.97E5. 1.881 04E5»2.405E5»2.4029BE5» 2. B7E5*2. 87E 
15.3.39E5»3.34E5»3.93cb/ 


DATA  A2/2. 618.7394 .4.6033 .4.061 1273. 5. 6700722.  7. 2790966. 8. 8B7l.  007.1 
10 .490602. 12.105599.13.714116. 15. 322981/ 

DATA  b2/-1.0759307E-4.-4,3094741E-4.2.5016562E-3.2.9414On6E-3»3.38 
1 10CJ92L-3. 3.  B217676E-8. 

2  4.2621570E-3.4. 7017969E-3.5. 1433051E-3.5.583471RE”’3/ 

DATA  C2/3.86U1044E-0.2.6534049E— 7.-1. 491b69E -6.-1. 5037991E-6. 

1- l.b755L-6.-1.7b09104E-b. 

2  -1.0617521E-6. -1.9536149c -6. -2. 0480U45E-6. -2. 1406085E-b/ 

DATA  D2/-4. 5004646E-12. -5. ('605532E-11 . 5.338941 0E-10. 5. 8735R9bE-10. 
16.4058152E-1U .b.947o531E-10 » 7 . 4862230E-10. 9.0193467E-10. 8. 566632 RE 

2- 10 » 9. 1U4U577E-10/ 

DATA  L2/1.0256099E-lo^3.4087751E-i5»-7.fcfi24207E-14.-9.2963380E-14. 
1-1. 09054i9£-13»-1.2533614E-13»-1.415519?E-l3.-1.576b034E-rl3, -1.740 
249bb£-13» -1 .9024S94E-13/ 

DATA  FK2/4. 1144 .-1,8514979. 1.0152922.-4. 2521956.-13. 103985. -18. 370 
156. -27. 221515. -32. 489186. -41. 339U45. -46. 606231/ 


EQUIVALENCE  (PRESHR»CAR9NZ(2) ) » <DEDTAU.CARBNZ(3> ) . 
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C 


C 


C 

C 


C 

C 

C 


1  ( DEUTHT . CARJNZ (4 ) ) »  (UPDTAU. CARBNZ ( 5) )  »  (DPDTHT. CARBNZ (6) )  . 
2<ENERGY»CAUdNZ<i> ) 

TAU=  XI 

EZERO=  b.98566EU 

IF ( X3  .LT.  0.  .AND.  A ( 1 )  .NE.2.5)  GO  TO  10 
li  CONTINUE 

IF <  fAU.LT.i.f>l)  GO  TO  900 
T=  -1. 

UPPERT=  J. 

CONST=  -l./(12.*TAU) 

TKEL=  1161)5.4  *  X2 

IF(TKEL.GT .7  >E3)  GO  TO  550 
551  CONTINUE 


TKELN=  ALOG(TKEL) 

KTKEL=  1. 98726* TKEL 

H2TKEL=  8 i. 06*TKEL 

1.98726  IS  THE  GAS  CONSTANT  IN  CALORICS/MOLE/DEGREE  KELVIN 
82.0b  IS  THE  GAS  CONSTANT  IN  CC. 'ATMOSPHERES/MOLE/DEGREE  KELVIN 
DO  201  1=1.10 

IF  ( TKEL.LT .1750 . )  GO  TO  400 

Fr  ENi<G(I)=  A(I)*<1.-  TKELN  )  -CFK  ( I )  +TKEL*  ( B(  I )  +TKEL*  (C  ( I  >  '2.  + 
1  TKEL*(D(I)/3.+TKEL*E(I)/4.  ))))  +OELH( I ) /RTKEL 

UEDT ( I )  =  1 c 98726* (  A  l I ) -i.*TKEL*(2.*B  ( I ) +TKEL* < 3.*C ( I ) +TKEL* 

1  (4.*0(I)+TKEL*5.*E  (I)  )>)) 


401  CONTINUL 

FI=  1 

COEF(I)=  FI*EXP(-FKENRG(I)  ) /R2TKEL 
201  CONTINUL 

IF(TKEL.LT.1.E3>  60  TO  650 

IF  ( X3  .GT.  0.  .AND.  TKEL  .LT.  1.5E3)  GO  TO  650 


THE  LOWER  BOUND  ON  X  IS  0. 

Y=  0. 

DEVELOP  UPPER  HOUND  10  X 
Z=  -CONST/COEF ( 1 ) 

IF  (  Z.lE.  1.)  GO  TO  604 
b02  CONTINUE 

DO  221  1=1.9 
J=  10-1 

I F ( COEF ( J ) . NE . 0 . )  GO  TO  222 

221  CONTINUE 

222  CONTINUE 

IF (COEF (l).EO.P.)  CALL  UNCLE 
7.z  l,  +  (  (-CONST/COEF  ( J)  )**(  1  ./FLOAT!  J) ) ) 

IF  (  Z.LT.  2.)  Z=  2-1. 

b04  CONTINUE 

x=  z 

DACK1=  0. 

XTRY=  -J.E-30 

F  OF  XMl=0. 

211  CONTINUE 

DO  203  J=  1.25 
F  0*-'  X  =  COEF  (10) 

UO  JJ4  1=1.9 
111=  10-1 


c 


V 
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C 


C 


F  OF  >  F  OF  X  *X  ♦  CO£F( III ) 

204  cororihv.u 

F  OF  X  =  F  OF  X  *  X  +  CONST 
FJ=  J 

IF  <F  OF  X  .GT.  0.)  L-  X 

IF  (F  OF  X  .LT i  0.)  Y=  X 

IF< J.tU.l.AND.FOFX.OT. (  -2.*  CONST  >  >  GO  TO  21? 

IF  (  AtJS(F  OF  X)  .LT.  (i.E-  6*<-  CONST  ))  )  GO  TO  205 
IF  (MUS(FOFX) .GE. (-• 1*C0N5T) )  GO  TO  206 
IF  (  FOFX. EG. F0FXM1)  GO  TO  206 
204  CONT 1NUL 

lF(J.OV.l)  XTUY  =  X  -  (  X-BACK1 )  / (F0FX-F0FXM1 )  ->F  OF  X 
20b  CONTINUt 

0ACK1=  X 

X=  U*Y)*.b 

IF  (  F  OF  X  .EG.  FOFXMl  )  GO  TO  208 

IF  (XTRY.GE.Y.ANO.XTKY.LE.Z.AND.ARS(FOFX) .LT. <-.l*CONST) ) 
200  CONTINUt 

F0FXM1-F  OF  X 
203  CONTINUE 

J=  J-l 

247  CONTINUt 

CARBNZ(8)=  97.0247 
RETURN 

20t>  CONTINUt 

FJ-  J 


PRESSURE 
SUMCON=  0. 

DO  30i  1=1*10 
XStT(I)=  0. 

IF  (COEF(I).EG.O.)  GO  TO  301 
FI=  I 

XSt T  ( I )  =  (C0LF(I)/Fl*x**  <FI/2.)>*X**(FI/2.) 
SUMCON=  SUMCON  +  XSET(I) 

301  CONTINUt 

NBAR=  -CONST  /SUMCON 

PKLS»HK=  1 .  U132bE0*R2TKEL*SUMC0N 

tNtRGY 
1NITAL=  1 

LAST-  10 

4  CONTINUt 


SUMNRG=  0. 

DO  302  I=INITAL*LAST 

IF  ( TKtL.LT . 17S0 . ) GO  TO  402 

HSPtCZ(i>=  KTKEL^(AU)+TKEL*(B(I)+TKEL*(C(I)*TKEL*(DU)  + 
1  ) ) ) ) +OELH( I ) 


403  CONTINUE 

tSFLC/(I)=  HSPtCZC 1 )  -  RTKEL 
SUMNRG=  SUMNH(S  ♦  XSET  ( I )  ♦ESPECZ  < I ) 

302  CONTINUE 

LNtR6Y=  TAU*SJMNKto*4.185E7 

IF ( TKtL.LT • 1 *E3)  GO  TO  601 
SUM1UX=  0. 

SUN2DX=  0. 

DO  bOO  1=1*10 
FI*  I 

TUGOT ( I ) =  -HSF’ECZ ( I ) /RTKEL 


=XTRY 


EL*E(I) 
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D«lACT(1)= 
SUM1UX= 
bUM2UX= 
bOU  C0NT1NUL 
uxor ( 1 ) = 

UXUTAUi 1 ) - 
UO  bOl  1-2 
F  1  =  1 

UXDT<1)= 
UXDTAU(I)= 
bOl  CONTINUE 
UCONU1- 
GUM3UX= 
bUM4UX= 
SUMbL>X= 
bUMfc>0X= 
bUM7uX= 
SUMbUX= 

UO  b02  1  =  1 
F  1  =  1 
uconut = 

SU>i3uX= 
bUM40X= 
bUMbUX= 
SUMbUX= 
SUM7UX= 
SUMUUX= 
b02  CONTI NUE 
(JNl)T= 
DNL)TAU= 
UPUN= 
DPOTAU= 
UPDTHT= 
DEUTAU= 
OEUTH  T= 
IF1T.NE, 
GO  TO  901 
6S0  CONTINUE 
p.;eshr= 

INI TAL= 
LAbT= 

NUAR= 

XSET (9)  = 

GO  TO  4 
601  CONTINUE 
DPDTAU= 

upd  thi  = 

DEf)TAU= 

UEU  THT= 

GO  TO  901 
212  CONTINUE 
X= 

GO  To  211 
400  CONTINUE 
FRENRG(I) 


rl*TL!oOT<  1)-T0GDT(  I) 

SUMlOX+XbET ( I  )*F1*QREACT ( I ) 

SUM2UX  +  F I*FI*XbET( I) 

~AbLT  ( 1 )  * (  (  CONST  +SUM1DX)/SIJM2DXU.)/TKEL 
-XSET (1)/(12.*TAU*TAU*SUM20X) 

*  10 

XSET ( I ) * ( F I/XSET ( 1 ) *DXUT ( 1 ) + ( OREACT (I ) *FI-l . ) /TKEL ) 

FI*DXl)TAU(  1 )  /XSET  1 1 )  *XSL'T  ( I ) 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

*10 

OCONOT  +  UXl)T(I) 

SUM30X+0XUTAUU) 

SUM4DX  +  0XUT  AU  ( I )  *ESPECZ  ( I ) 

SUMbDX+ESPECZ ( I ) +DXDT ( I ) 

SUMfaOX  +  OEUT ( I ) *XSET(  I ) 

SUM70X+F I*UXUT(I) 

SUMODX+FI*0X0TAU<I) 


/SUMCON/SUMCON 

/SUMCON/SUMCON 


SUM7DX/SUMC0N+DC0NDT*  CONST 
SUM6DX/SUMC0N+SUM30X*  CONST 
-PRESUR/NUAR 
UPON  *  ONUTAU 
UPON  *  ONUT  ♦  11605.4 
4.105E7*TAU*( SUM40X+SUMNRG+SUM8DX/C0N5T ) 

4 .  HS6U6E1 1  *TAU*  ( SUM5DX+SUM6DX+SUMNRG*SUM7DX/C0EF  (ID) 
(-1.) )  GO  TO  503 


-1.12b033Eb*R2TK£L*C0NST 

9 

9 

9. 

-CONST/9. 


0. 

0. 

0. 

4-497lE9*DEUT (9) 


.1*X 


UEUT ( I ) = 


A2<l)*(l.-TKELN)-(FK2CI>+TKEL*<fT2(I)+TKEL*<C2(I>*.5+TKE 
L* ( U2 ( I ) /3.+TKEL*E2 ( I ) *.2b) ) ) ) + DELHI  I ) /RTKEL 
1.96726* (  A2(I)-1.PTKEL*(2.*02(I)FTKEL*<3.*C?(I)*TKEL* 


o> 


if 
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1 

1)0  lU  4  01 

( 4.  ♦02  C 1 ) +1KEL*5. *E2  (I.)  )>)) 

402 

HblV.C,:U)  = 

KlKLLMA2(I)  HKEL*<B2<  1 ) +TKEL*  ( C2  (I) +TKEL*  (D?  ( I  >  ♦’TKFL'^E 

1 

00  10  4U3 

2(1)  ))))  *£)ELH(I) 

550 

Cun  Unue 

1  = 

TKEL 

IF  (r.GE.tt.5E3  .AND.  1AU.GE.1.E3  )  GO  TO  504 

IF"  <I.GT.1.05i_4  .AND.  TAU.GE.  1.  )  GO  TO  504 

IF  (.  r 

.Gt.  1.3E4  )  GO  TO  504 

TKLL= 

00  10  551 

7.E  3 

503 

CONI INUL 

IJbARO- 

NbAH 

UPPtA  1  = 

7.E3-(Nf)AKO-l.)/DNOT 

IF ( T . oT 

•UPPER  T )  GO  TO  504 

1UPM7= 

UPPEHT-7.E3 

TU1F  = 

T-7.E3 

l\IIJ  A  K— 

NUAR-M  DIF*DNDT 

L0= 

ENERGY 

Ll- 

1 . 0392445E7*UPPERT  +  5»  9H566E11 

EONi)AK= 

EO*Nl)ARO 

LD1F  = 

E0NUAR~E1 

LWEUoY= 

(t0MbAW-TUIFVTUPM7*E0IF)/N0AR 

DLDTMT= 

“llGOli.  4*  ( ENERGY*QNDT +EDIF/TUPM7)  /NflAR 

UEUIAU= 

(-ENERGY+ONDTAU  +  ( (UPPERT-T )  /TUPM7)  *  ( EO*DNDTAU+NtlARO* 

1 

UEOfAU)  -  F.0IF/TUPVI7  *  DNDTAU/DNDT  *  TOIF/TUP‘^7 ) /NBAR 

PHL5rlK= 

-  CONST  /NHAR*T*U.31395b4E7 

UPDTAU= 

-PRESriR/NUAR*DNDl AU 

UPDTHl - 

-PKESilR*11605.4*DNDT/NbAR 

1KLL= 

r 

901 

CONTINUE 

ENEKGYr 

tNERGY-l  .U392445E7*TKEL/NI3AR“  EZERO 

UEDTMT= 

UEDTHr-1.2060B40Ell/NLlAR 

902 

CONTINUE 

C AKUNZ ( ti ) = 

U. 

CARUNZ<7)= 

hETURN 

NbAR 

504 

CONTINUE 

LNEI<OY  = 

5.9b5o6EU  -  EZERO 

TKEL= 

T 

PRESHR= 

-  CONST  *TKEL*8.31395l>4E7 

UPDTAU= 

0. 

UPDTMT- 

DE0TAU=0. 

0. 

UEUTHT= 

0. 

NUAK= 

1. 

XSLT(1)= 

00  TO  902 

-CONST 

900 

CONTINUE 

197 

CONTINUE 

CAKUN2(6)= 

RETURN 

97.0197 

10 

continue 

DO  lb  I=l»10 

A  ( 1 )  =  2.5 
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ti  ( 1  >  =  0. 

C ( I )  =  0. 

urn  =  o. 

Ed)  =  u. 
FK(I)=  0. 
A2(l)=  2.b 
b2(I)=  U. 
C2(I)=  0. 
02(1)=  U. 
L2( I )=  U. 
FK2 ( 1 ) =U • 
lb  CONTINUE 
GO  TO  11 
END 
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